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Power und Intelligenz - diese Kombination 
macht die vortex-Supercards zum Kraftpaket» 


Die Power:_ 

20, 30, 40, 60 oder 80 MegaByte. 

Bei einer mittleren Zugriffszeit zwischen 
80 ms (20 MB) und 28 ms (80 MB). 

Pie Intelligenz;_ 

Zu jeder vortex-Supercard gehört ein Soft¬ 
ware-Paket mit 4 Programmen: 

• MULTIPART, der Festplatten-Manage’- 
zum Betrieb von bis zu 4 Partitionen pro 
Platte und bis zu 32 MB pro Partition. 


• BACKDISK, das vortex Disketten-Backup- 
Programm. Auf einfachste Weise werden 
Daten parametergesteuert gesichert und 
rekonstruiert. 

• PARK, das Programm, um die vortex- 
Supercard zu parken. D e Schreib- und 
Leseköpfe werden dabei in einen Bereich 
efahren, wo sie auch im Falle hoher 
chockbelastung keinen Schaden anrichten 

können. 




Mit MULTIPART wird die Platte auch for¬ 
matiert (DEBUG, FDISK und FORMAT 
sind überflüssig). 

MULTIPART ist voll menügesteuert. 
VHDT.SYS, der MULTIPARTition-Treiber 
wird über CONFIG.SYS ins DOS einge¬ 
bunden. 



*» vortex 
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Editorial—i 



Liebe Leser, 

stolze drei Jahre gibt es sie nun, die von Amstrad 
entwickelten und von Schneider im deutschspra¬ 
chigen Raum vertriebenen CPCs. Eine riesige 
Anwender- und Fangemeinde hat sich um diese 
hervorragenden Computer gebildet und dazu bei¬ 
getragen, daß die CPCs eine feste Größe im Com¬ 
putermarkt geworden sind und immerhin den 
zweiten Platz der ewigen Verkaufshitparade hin¬ 
ter dem Commodore 64 belegen. 

Viele sind offensichtlich der Meinung, daß die 
CPC-Systeme inzwischen technisch veraltet und 
in ihrer Leistung den Ami gas, STs etc. nicht wei¬ 
ter standhalten können. 

Richtig ist sicherlich, daß die fortschreitende 
Technik gerade in Bezug auf Grafik und Sound Er¬ 
staunliches zu Tage gebracht hat und die CPCs in 
diesen Bereichen weniger bieten. 

Diese Argumente wird jedoch nur derjenige Vor¬ 
bringen, der den CPC als klassischen Heimcom¬ 
puter definiert und als vorrangige Anwendung das 
Computerspiel sieht. 

Im Bereich der semiprofessionellen Anwendung in 
Heim und Beruf finden wir jedoch eine andere Si¬ 
tuation vor. Hier erfiillen die CPCs ihren Zweck 
wohl wie kein anderer “Heimcomputer“ voll und 
ganz, bei vergleichsweise geringen Unterhaltsko¬ 
sten, versteht sich. 

Nicht zuletzt hat das mitgelieferte Betriebssystem 
CP/M den Zugang zu einer riesigen Softwarewelt 
geschaffen und den Einsatz der CPCs im semipro¬ 
fessionellen Bereich zusätzlich gefördert. Frei 
nach dem Motto < der CPC kann alles > sind 


Quo vadis, 
CPC? 


diese Geräte zu einem beliebten und universellen 
Computer herangereift, die alle gestellten Anfor¬ 
derungen mit großer Bravour meistern. 

Mal ehrlich, sind Sie schon einmal an die Grenze 
der CPC-Leistungsfähigkeit herangestoßen ? 

Die wenigsten werden diese Frage bejahen kön¬ 
nen, da enormes Leistungspotential in diesen 
"kleinen Kisten “ steckt. 

Auch wir, die wir nun fast jede realisierte CPC- 
Anwendung gesehen und bestaunt haben, müssen 
immer wieder feststellen, daß der Horizont bei 
weitem noch nicht erreicht ist. Dies wollen und 
werden wir Ihnen in den nächsten Ausgaben von 
Schneider International auch beweisen. Sie wer¬ 
den staunen! 

Im Spielesektor tut sich zur Zeit auch eine ganze 
Menge. Die Programmiertechniken werden im¬ 
mer raffinierter, Qualität steht vor Quantität. Ein 
Blick in die großen Softwarehäuser bestätigte uns 
in dieser Ansicht und läßt auch die Spielefreaks 
nicht kalt. 

Eines ist jedoch klar: Solange die Anwender, also 
Sie, den CPC als Computer betrachten und nicht 
als Spielekonsole, Grafikgigant oder Soundma¬ 
schine einstufen (für jede dieser Klassifizierungen 
gibt es speziell entwickelte und somit leistungsfä¬ 
higere Maschinen), wird dieser seine universellen 
Fähigkeiten auch weiterhin eindrucksvoll unter 
Beweis stellen und das Publikum überzeugen. 

Die Redaktion wünscht Ihnen ein gutes, gesundes 
und friedvolles Jahr 1988. 


Herzlichst Ihr 



Stefan Ritter, 
Chefredakteur 
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I—Briefe 


Eine Bitte an unsere Leser 


Die Rubrik »Leserbriefe« ist eine 
Einrichtung für alle Leser, die in 
irgendeiner Form Fragen, Pro¬ 
bleme oder Anregungen zu Pro¬ 
dukten, Programmierproblemen 
oder zu unserer Zeitschrift haben. 
Selbstverständlich sind wir be¬ 
müht, alle Leserfragen zu beant¬ 
worten. Doch haben Sie bitte 
Verständnis, daß wir nicht alle 
eingehenden Briefe persönlich 
beantworten können. Oft errei¬ 
chen uns mehrere Briefe zum 
gleichen Thema, einer davon 
wird dann stellvertretend für alle 
in unserer Zeitschrift beantwor¬ 
tet. Da auch wir nicht alle Fragen 
auf Anhieb beantworten können, 
müssen wir recherchieren. Und 


das dauert bekanntlich seine Zeit! 
Wir möchten hiermit alle PC-Le¬ 
ser noch einmal auf unseren Le¬ 
serservice hinweisen und bitten 
bei der Vielzahl der eingehenden 
Briefe um etwas Geduld. Für ei¬ 
lige Anfragen steht unsere Redak¬ 
tion jeden Mittwoch von 17 bis 20 
Uhr am »Heißen Draht« zur Ver¬ 
fügung. Vielen Dank für Ihr Ver¬ 
ständnis. 

Ihre PC-Redaktion 


PS: Die Redaktion behält sich 
vor, Leserzuschriften in ge¬ 
kürzter Form wiederzugeben. 


JOYCE Club Burgthann 

Bei der Veröffentlichung unse¬ 
rer Clubadresse hat wohl der 
Druckfehlerteufel zugeschla¬ 
gen. Die Telefonnummer muß 
richtig lauten: 09138/3200. 
Bitte berichtigen Sie dies in der 
nächsten Ausgabe. 

Erwin Maußhammer 
8501 Oberrieden 

Hiermit geschehen. (Red.) 


LETCOM, 

JOYCE-DATABOX 11/87 

Im Bonusprogramm LET¬ 
TER. COM bzw. der Pascal- 
Source LETTER.PAS befindet 
sich ein Fehler. Das Programm 
läuft nur einwandfrei, wenn der 
Parameter mit dem Programm¬ 
aufruf übergeben wird. Beim 
Wählen des Zeichensatzes über 
das Menü erfolgt keine Umstel¬ 
lung! Der Fehler liegt in der 
Prozedur PRUEFUNG. Hier 
muß nach Aufruf der Prozedur 
AUSWAHLBILD noch die 
Prozedur UMSCHALTEN 
aufgerufen werden, also: 

PROCEDURE Pruefung; 

BEGIN 

IF (Code <= '0') AMD 
(Code >= T 6•) THEN 
BEGIN 

Umschalten; 

EXIT 

END; 

Auswahlbild; 

Umschalten 

END; 

Nach dieser Änderung läuft das 
Programm einwandfrei. 

P. Horstmann 
2000 Hamburg 13 


TABDAT2, Heft 5/87 

Wieder einmal hat einer unse¬ 
rer unermüdlichen Leser einen 
kleinen, für den korrekten Pro¬ 
grammablauf aber wesentli¬ 
chen Fehler aufgestöbert: Im 
JOYCE-Programm TABDAT2 
fehlen in der Zeile 1850 zwei 
Doppelklammem, die zu einer 
verfälschten Berechnung der 
Standardabweichung führen. 
Hier die richtige Zeile: 

>85< 1850 k$S=g5&+l:mittel= 
sum/k%: 

stabl=SQR((sumqua-k%*mittel 

T2)/J*): 

stab2=SQR((sumqua-k%*mittel 
t2)/kjf): stf=stabl/SQR( kt ) 

Für die Einsendung der Kor¬ 
rektur danken wir Herrn Dieter 
Rathje aus Lübeck. 

(Red.) 


Datenübertragung 
JOYCE/PC 1512 

Nachdem die PCs von Schnei¬ 
der in der letzten Zeit doch sehr 
preisgünstig angeboten wer¬ 
den, habe ich mich entschlos¬ 
sen, von meinem JOYCE auf ei¬ 
nen PC umzusteigen. Aller¬ 
dings stellt sich hierbei ein Pro¬ 
blem: Da ich auf JOYCE meine 
ganzen Texte erstellt habe, wo¬ 
runter sich auch einige Rund¬ 
schreiben an Kunden befinden, 
diese aber allesamt auf 3“- 
Diskette zur Verfügung stehen, 
müßte ich mir die Arbeit ma¬ 
chen, diese Dateien auf dem PC 
nochmals abzutippen. Diese 


Arbeit würde ich mir natürlich 
gern ersparen. Wissen Sie oder 
Ihre Leser Rat? 

Jochen Kieber 

1000 Berlin 61 

Mit diesem Problem sind Sie 
nicht allein; in letzter Zeit er¬ 
reichten uns viele Anfragen von 
JOYCE-Besitzem zu diesem 
Thema. Grundsätzlich gibt es 
mehrere Möglichkeiten der Da¬ 
tenübertragung zwischen die¬ 
sen beiden Rechnern. Die erste 
und am wenigsten aufwendige 
Methode ist, Textdisketten zur 
Übertragung außer Haus zu ge¬ 
ben. Inzwischen bieten einige 
Firmen einen Konvertierungs¬ 
service an, der mit ca. 20, — bis 
40, - DM pro Diskette hono¬ 
riert werden muß; beachten Sie 
hierzu den Anzeigenteil der 
Fachzeitschriften. Die zweite 
Methode ist die serielle Datenü¬ 
bertragung, wozu natürlich bei¬ 
de Rechner verfügbar sein müs¬ 
sen. Für JOYCE benötigen Sie 
die Schnittstelle CPS 8256; 
weiterhin ein sogenanntes RS 
232-Kabel zur Verbindung der 
beiden Rechner. Als DFÜ-Pro- 
gramm ist KERMIT empfeh¬ 
lenswert, welches aus der 
PUBLIC DOMAIN-Welt 
stammt. Hiermit lassen sich die 
gewünschten Dateien direkt 
von Diskette zu Diskette über¬ 
spielen, wobei aber die Umlau¬ 
te und das scharfe ’S’ verloren 
gehen. Die dritte und kostspie¬ 
ligste Methode ist (wenn nicht 
vorhanden) der Erwerb eines 
5,25“-Zweitlaufwerkes für den 
JOYCE und einer Spezialsoft¬ 
ware für die Einstellung belie¬ 
biger Formatparameter für die¬ 
ses Laufwerk (z.B. DiskPara 
von Vittali & Strauß oder Para 
Plus von Vortex). Hiermit ist es 
dann möglich, mit dem JOYCE 
5,25“-Disketten im MSDOS- 
Format zu formatieren und zu 
beschreiben, welche dann vom 
Schneider PC gelesen werden 
können. Auch hier muß dann 
auf Umlaute und scharf-’S’ ver¬ 
zichtet werden. LocoScript- 
Dateien müssen vor der Über¬ 
tragung in das ASCII-Format 
gebracht werden. 

(Red.) 


Druckqualität mit NEC P6 

Seit kurzem betreibe ich einen 
NEC P6 an meinem Schneider 
PC. Wider Erwarten lassen die 


grafischen Fähigkeiten des 
sonst so überzeugenden 
Druckers gegenüber meinem 
vorherigen Neun-Nadel- 
Drucker Star NL 10 zu wün¬ 
schen übrig. Programme wie 
z. B. Starwriter, Printmasten 
oder Framework zeigen einen 
erheblich schlechteren Aus¬ 
druck als mit einem konventio¬ 
nellen neunnadligen Drucker. 
Wie kann man Abhilfe schaffen, 
oder handelt es sich gar um ei¬ 
nen Defekt des Druckers ? 

Wolfgang Hinz 
3330 Helmstedt 

Ihr Drucker ist keineswegs de¬ 
fekt; eine Funktionsstörung 
liegt ebenfalls nicht vor. Der 
Grund für die optisch unbefrie¬ 
digende Qualität einer Hardco¬ 
py ist die Tatsache, daß 
24-Nadler bei der Emulation 
(Nachahmung) von Acht-Nad- 
lem nur jede dritte der ohnehin 
im Durchmesser dünneren 24 
Nadeln ansteuem. Dieses Man¬ 
ko, welches sich durch optisch 
zu große Zeilenabstände offen¬ 
bart, ist systembedingt und läßt 
sich nur durch Ansteuerung al¬ 
ler Nadeln beheben, was aber 
von den meisten Standardpro¬ 
grammen bislang nicht vorge¬ 
sehen ist. 

(Red.) 


Auflösungsprobleme 

Ich besitze den Schneider PC 
1512 und möchte wissen, ob es 
die Möglichkeit gibt, die 
schlechte Auflösung des Moni¬ 
tors durch eine Zusatzkarte zu 
verbessern. Kann der Monitor 
des 1640 mit Karte in den PC 
1512 eingesetzt werden? 

Dipl. -Ing Hartmut Neuer 
4000 Düsseldorf 12 

Die Firma Schneider selbst bie¬ 
tet für den PC 1512 eine Hercu¬ 
les-Version an (siehe Testbe¬ 
richt in Heft 7/87). Eine EGA- 
Version des 1512 gibt es von 
Schneider jedoch nicht, und der 
Einbau von Karten, die vom 
Fachhandel angeboten werden, 
ist nicht ohne Schwierigkeiten. 
Da der Schneider-Monitor auch 
die Spannungsversorgung für 
die Zentraleinheit enthält, ist 
auch der Anschluß eines exter¬ 
nen Monitors problematisch. 
Technisch versierten Interes¬ 
senten kann der Erwerb des 
technischen Handbuchs des PC 
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beim Fachhändler empfohlen 
werden; für PC 1512-Besitzer, 
die gern in den Genuß der 
EGA-Farbgrafik kommen 
möchten, bieten inzwischen ei¬ 
nige Händler einen Umtausch¬ 
service an, wo gegen Entrich¬ 
tung eines Aufpreises der PC 
1512 gegen einen (ggf. ge¬ 
brauchten) 1640 umgetauscht 
werden kann. Eine 'Aufrü¬ 
stung’ des 1512 mit dem 
1640-Monitor ist aufgrund un¬ 
terschiedlicher Steckerbelegun¬ 
gen leider nicht möglich. 

(Red.) 


’Uhrzeitgewurschtel’ 

Ich hatte unter dBase einen Zu¬ 
fallsgenerator programmiert, 
der auf die Zeit des Computers 
(PC 1512) Zugriff, um daraus 
eine zufällige Zahl zu gewin¬ 
nen. Zu später Nachtstunde gab 
dieses Programm dann plötz¬ 
lich seltsame Zahlen aus. Nach 
langer Suche kam ich auf die 
Idee, die Uhrzeit zu überprüfen. 
Dabei erlangte ich einen AHA- 
Ejfekt: Der Rechner gab die 
Uhrzeit 25:49:03 aus! Diese 
Uhrzeit ließ sich jedoch per Ta¬ 
statur nicht in den Rechner ein¬ 
geben. Ich stellte die Uhrzeit 
aufl :49 ein; jedoch trat dieser 
Effekt am nächsten Abend wie¬ 
der auf. 

Woran könnte das liegen ? 

Ulf Dieckmann 
2820 Bremen 70 

Leider kann ich Ihnen nur eine 
sehr vage Antwort auf diese 
Frage geben. Das Problem ist 
auch bei uns aufgetreten, aller¬ 
dings mit schlimmeren Auswir¬ 
kungen. Wir vermuten, daß ein 
Timer hardwaremäßig beim 
Umschalten von 23:59 auf 0:00 
Uhr ein Undefiniertes Signal ab¬ 
gibt. was in unserem Fall einen 
Totalabsturz zur Folge hatte. 
Auf jeden Fall möchten wir 
Programmierer, die die Syste¬ 
muhr in diesem Umschaltbe¬ 
reich benutzen, auf diese offen¬ 
sichtliche Fehlfunktion hin- 
weisen. 

(Red.) 


IBM-Monitor am CPC 

Sehr geehrte Damen und 
Herren! 

Ich bitte um Auskunft, ob es 
möglich ist, einen Monitor für 


IBM- oder kompatible Rechner 
an einen Schneider CPC 6128 
anzuschließen. 

Wenn ja, bitte ich um Beschrei¬ 
bung, wie die Signale umge¬ 
formt werden müssen. 

Ich habe einen Farbmonitor, 
der zum Arbeiten sehr unge¬ 
eignet ist und möchte deshalb 
diesen anderen Monitor an¬ 
schließen. 

Für eine rasche Antwort danke 
ich im voraus. 

Mit freundlichen Grüßen 

Gregor Held 
Kufstein 


Datentransfer 
von CPC auf PC 

Sehr geehrte Damen und 
Herren! 

Seit einem Jahr besitze ich eine 
Schneider CPC-6128 mit Vor¬ 
tex Laufwerk. 

Ich programmiere in Turbo- 
Pascal und verfolge mit sehr 
großer Aufmerksamkeit die Ar¬ 
tikel in PC-International. 

Ich finde Ihre Artikel wirklich 
hervoragend, ein Lob und ma¬ 
chen Sie weiter so, damit ich 
noch viel davon lernen kann. 
Aber nun zur Frage: 

Ich möchte vom CPC-6128 auf 
den PC-1640 umsteigen. 

Da ich mittlerweile eine Samm¬ 
lung von Vortex-formatierten 
Disketten habe, möchte ich die¬ 
se auf einfachste Weise übertra¬ 
gen (CPC-6128 Vortex-Format 
-< PC-6140) . 

Gibt es ein Programm, das es 
mir ermöglicht, Vortex-forma- 
tierte Disketten auf dem 
PC-1640 zu lesen unter 
MS-Dos? 

Es wäre sehr gut, wenn Sie ein 
Programm veröffentlichen wür¬ 
den, das oben genanntes er¬ 
möglicht. 

Falls es schon ein Programm in 
Ihrer Redaktion gibt, dann bit¬ 
te ich um Zusendung einer 
Kopie. 

Ich hoffe, daß Sie mir diese 
Fragen beantworten und wün¬ 
sche Ihnen bei Ihren weiteren 
Veröffentlichungen 
Viel Bits und Bytes " 

Mit freundlichem Gruß 

R. W.B.Linn, 
Pinneberg 

Ein Programm, das die von Ih¬ 
nen gewünschten Funktionen 
bietet, ist ’DiskPara Plus’ von 
der Firma Vortex (Test in Heft 
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12/87), welches zum Preis von 
ca. 199, - DM angeboten wird 
(siehe Anzeigenteil). Mit dieser 
Software können Sie beliebige 
Diskettenparameter auf einem 
80-Spur-Laufwerk (wie es die 
Vortex-Laufwerke sind) einge¬ 
stellt werden, so auch das 
MSDOS-Format. Hiermit soll¬ 
te Ihr Problem gelöst sein. 

(Red.) 

Klein aber fein 
mit DMP‘2000 

Ich möchte Ihnen einen kleinen 
Programmiertip für den 
Drucker DMP-2000 zur Veröf¬ 
fentlichung vorschlagen. Es 
handelt sich um eine platzspa¬ 
rende Kleinschrift. Der Trick 
basiert darauf, daß vor dem 
Druck eine Reihe Steuerzeichen 
zum Drucker gesendet wird. 
Diese sind im einzelnen: 

chr$(27) ; ,l S“ ; chr$(0) 

- Hochstellung ein 
chr$(27) ; “3“ ; chr$(l4) 

-14 / 216 Zoll Zeilenvorschub 
chr$(15) 

- Schmalschrift an 

Mein Programm sieht dann so 
aus: 

10 IFINP(&F500)=90THENL0CATE 
10, 13:PRINT "Drucker be¬ 
reit machen!":GOTO 10 
20 PRINT #8,CHR$(27); ,I S"; 
CHR$(0); CHR$(27);“3 U ; 
CHR$(l4);CHR$(15) 

30 RUN">programmname< 

In Zeile 10 wird geprüft, ob der 
Drucker eingeschaltet ist und 
auf ONLINE steht. Zeile 20 
sendet die Steuerzeichen zum 
Drucker und mit Zeile 30 wird 
ein beliebiges Programm auf¬ 
gerufen, das den Drucker be¬ 
nutzt. 

Hintergrund der ganzen Sache 
war, daß ich (stolzer Besitzer 
eines CPC 6128 mit Grünmoni¬ 
tor und DMP 2000) mich schon 
immer darüber geärgert hatte, 
daß mein Drucker in NLQ zwar 
schön, aber doch ziemlich groß 
schreibt. Besonders bei langen 
Listen (Adreßverwaltung, Vo¬ 
kabeltrainer, etc.) machte sich 
das sehr störend bemerkbar. 
Durch Falten und beidseitigem 
Druck bekomme ich auf eine 
DIN A 4-Seite, was bei norma¬ 
lem Druck auf acht Seiten paßt. 
Somit stellt mein Tip also auch 
einen Beitrag zur Papiererspar¬ 
nis und damit zum Umwelt¬ 
schutz dar. 

P. Müller-Gugenberger 
7031 Steinenbronn 


TiftuFFtfr 

Ihr Partner für Schneider 


CPC 464 (Keyboard + MP-2) 359 - 

CPC 464 (Keyboard) 270- 

CPC 6128 (Keyboard + Grünmonitor) 750 - 
CPC 6128 (Keyboard + Farbmonitor) 1.045.- 
GT 65 (Grünmonitor) 175.- 

GT 644 (Farbmonitor) 590.- 

MP-2 (Netzteil + HF-Modulator) 89 - 

OOI-1 (3"-Floppy für CPC 464) 445.- 

FD-1 (3”-Zwelt-Floppy für 6128) 445 - 

DMP 2000 (Druckerinkl. Druckerkabel) 575.- 
FaAband für DMP 2000,2er-Pack 31 .- 

Druckerkabel für 464 + 6128 40- 

Scartanschtußkabel (464 + 612B an TV) 25- 
VerlAngerung 464 (Monitor -Kayboard) 18- 
Verlängerung 6128(Monitor-Keyboard) 24.- 
Joyatick für 464 + 6128 26.- 

3'-M8rkendl9ketlen, lOer-Pack 79.- 

WordStar für Joyce 158.— 

dBase II für Joyce 158- 

Multlplan für Joyce 158 - 

Dr. Graph für Joyce + CPC 6128 158.- 

Dr. Drawfür Joyce + CPC 6128 158- 

Prompt für Joyce 50.- 

Prompt Druck für Joyce 35.- 

PC 1640 (2 Laufwerke, Monochrom) 2.000.- 
PC 1640(2 Laufwerke, Coior) 2.400 - 
PC 1640 (2 Laufwerke, EGA) 3.000 - 

20-MByte-Businass-Card 790.- 

Game-Port für PC 1840 70.- 

Joystick für Game-Port 35.- 

DMP 3160 (inkl. Druckerkabel) 645.- 

Farbband für DMP 3160,2er-Pack 31 - 
DMP 4000 (inkl. Druckerkabel) 845.- 

NEC 2200 (24-Nadel-Drucker) 998- 

Farbband für NEC 2200,2er-Pack 38.- 
Druckerkabe! für PC 1640 35.- 

5,25'-Markendisket1en, 2D, lOer-Pack 30.- 
WordStar 1512 175.- 

Gbase (Datenbank unter GEM) 175.- 


BJfte fragen Sie auch nach unterer groOen 
Auswahl an PC-Computer-Spleien. 

VerpecKungs- und Varaindkosten 6- DM UPS frei 
Ham. Dteaa Angebolesind IraiblBibend Baklamalionen 
odBr Rücksandunflan (such Garantie) nur frei Haus 


3600 Kassel - Postfach 1025 22 
Telefon 05 61 /82 28 46 


PROFISOFTWARE 
für PC - JOYCE - CPC 


BAUFINANZIERUNG 

Bevor Sie lui Ihre Baulinanzieruno während der Ge- 
samllaufzei! DM 10.000.- zuviel Zinsen zahlen, 
sollten Sie das Programm Bwkv.i',••Control II erwer¬ 
ben und sich anhand detaillierter Ausdrucke und Gra¬ 
fiken die Gesamtkreditkosten der verschiedensten Finan- 
nwungsmodeHe verrechnen lassen, denn Eflektivznsan 
gaben alleine sagen wenig aus. Berücksichtigt werden 
Hypotheken, Bausparverträge, Lebensversicherungen 
und aktueles Steuerrecht lür Ein- und Mehrtamüenrau- 
ser. Einfache Bedienung durch Menüsteueiung. Geei¬ 
gnet für Makler und Private. Demo-Disk, und Benui 
zeranleitung 30.- DM 

FDr PC auf 51/4“ Disk. 389,-DM 

Für JOYCE und CPC 6128 3" Disk, 279,- DM 
Für CPC 464/664 a Grafik 3“ Disk. 189,- DM 

IMMOBILIENVERMITTLUNG 

Automalische Verknuplung von 00|ekten und Kunden. 
Automalische Anaecoisdrucke mfl Nachweis für den 
Makler, Demo-Disk u Bcnutzc-anicilung 3Q - OM 

Für PC auf 5 1/4“ Disk 1590-DM 

Für JOYCE und CPC 6128 390,- DM 

Unser Kennenlernangebot: 

ADRESSVERWAUUNG 39,- DM 

Adressen und Zusatzinlormafionen können nach 14 Fel¬ 
dern sortiert und selektiert werden Beliebige EmteJung 
in Untergruppen. Suchen mit Univetsalzeschen ? und' 
nach sämtlichen Feldern gleichzeitig. 

Variabler Elitettendruck, lür Paketaufkleber z.B in dop 
pefl große» Schrift MehriacbausdriKke anzetner Adres¬ 
sen oder Druck einzelner Untergruppen usw Program¬ 
mierung in »C« mit dynamischer Speicherwrwaltung, 
kompiliert m Maschinencode und ohne umständliche 
InsteilaiJon solort lauflähig Anzahl der Adressen abhän¬ 
gig von Ihren Speichermöglichkeiter, z.B aut 360 K 5 
W-Laulwerk bis 2000 ye Disk , aut Festplatte bis 3000 
Adr. je Datei im Direktzugriff 
Für PC ad 5 IT Disk. lür JOYCE und CPC au! 3“ Disk 


— Bitte bei Bestellung Gerätetyp angeben — 
Unseren Gesamtkatalog erhallen Sie kostenlos 
Wir führen neben eigenen Entwicklungen 
unter anderem Programme von 
ASHTON TATE * BORLAND * DIGITAL RESEARCH 
Markt & Technik • MICROSOFT • MICROPRO 

Wn per NN zzgl DM5,- (AasUnil ID.-) PattpZVirp 
odarIm Fachhandel 


Hashagen * EDU 

Eckslr. 11, 6113 Babenhausen 3 
Tel.: 06073 / 61993 
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BRANDHEISSE 

KNÜLLERPREISE 


(—Briefe 



Schneider 

CPC 6128 mH Grünmonllor 
CPC 8128 mil Farbmonitor 
3“ DlakaHen (Maxell CF2> 


Drucker DMP 3160 
Drucker DMP 4000 
PC 1640 mll SW-mon + 2 Laufwertce 

mH SW-mon. / 1 LW / HD 20 MB 
PC 1640 mit Farbmon ♦ 2 Laufwerk* 

mH Farbmon./ 1 IW / HD 20 MB 
PC 1640 mll EOA-moo . 2 Laufwerk« 

mit EGA-mon / 1 IW / HO 20 MB 
20 MB Featp4n(te<Seaoate) * Controttnr 
20 MB-Fltocard Lapine (oinbou und 
anachluMnriig tür PC 1512 und 16401 
30 M0-Fli©card Fu|< 


Seiko Armbanduhr W»HH Terminal 1000 


NEC P 6 1149. 

NEC P 7 1549,- : 

NEU: NEC-Drucker P 2200 


Alarl 

520 STM mil Maus 

1040 STF mH Monochrommonüor 124 

1040 STF mH Farbmonitor SC 1224 


1699,- 

2759.- 

2339.- 

3179.- 

2949.- 

3749,- 


099,- 

1079.- 

169,- 


539.- 
1479.- 
1649. - 


Epsondrucker (dt Varaion) 

Anechiuaferng an AMIGA. Schneider PC oder 
CPC, Aiarl ST oder IBM-Kompatible 

ucaoo 569.- 

FX 800 *4».- 

FX1000 122»,- 

LO 1000 1370- 

l O 2500 2499 

LO 050 1379,- 

L01050 1799.- 

EX 000 1340.- 

802900 3229. - 

Color&nbauaat/ lür EX 000^000 219.- 

Einzelblallemrug EX/FX/LO BOO 379. - 


3179.- 


Epaon F 

PC-AX I 


Stardrucker <01. Veraion) 

Ni tO mH Comnv, Centronics oder IBM 
ND-10 mH Conlrooicsschnlttetelle 

Commodore 

Commodoro PC 1 

PC 10 S mit 2 Laufwerken u. Grünmon 
Conmodore AMIGA 500 
AM1QA 500 * Farbmonllur 1084 
Commodoro AMIGA 2000 
AMIGA 2000 . Farbmonitor 1084 

SuporlcnUllar: 

Epson Tlrtiensirahliliucker IX 8CX) 

+ Traktoraulsalz 

Epson Handheid Computer PX 8 


1079.- 

1788.- 

1069.- 

1699.- 

HH,- 

2699.- 


.___IBßD» 1C0Q-I 

«wfcnlasw (ÜM&-.M-). 

I ll.PimTO), AwJat'it <0M W -(30,-i 
i efmui'Q n»r «gen rticfviahmr Mn «yairakavse: *niand rur 

iCempaiertrtjangtbeii)ongn Aßenüungi: 


dirübe) «in 
Nichnihim (I 


n«s HeiurMchfag 


CSV RIEGERT 

Schlpflhofstr. 8. 7324 Rachberg hausen 
Tbl. <0 7181)6 28 89 


Für unsere 
ständige 
Joyce-Rubrik 
suchen wir 
noch 

Programme 
Tips + Tricks 

zur 

Veröffentlichung. 

Honorar 

nach Vereinbarung. 

Einsenden an: 
DMV 

Daten & Medien 
Verlagsges. mbH, 
Fuldaer Str. 6, 
3440 Eschwege 


Farbprobleme 

Seit zwei Monaten bin ich im 
Besitz eines CPC 6128, den ich 
eigentlich nur geschäftlich mit 
gekauften Programmen nutzen 
wollte. Mittlerweile habe ich al¬ 
lerdings die Lust am Program¬ 
mieren entdeckt, und nun bin 
ich ein eifriger BASIC-Pro- 
grammierer mit teils gutem und 
teils schlechtem Erfolg. Der 
schlechte Erfolg ist u.a dieser, 
daß ich zwar mit den BORDER, 
PAPER, INK und PEN-Befeh- 
len einigermaßen umgehen 
kann, aber bei einem Fehler in 
meinen Programmen, bei dem 
die Farbe geändert worden ist, 
das Listing erst nach langem 
Herumprobieren mit dem INK- 
Befehl wieder sehen kann. Gibt 
es da eigentlich keinen einfa¬ 
cheren Weg? 

T. Höchberg 
Düsseldorf 

Eine einfache, dafür aber wir¬ 
kungsvolle Lösung ist folgen¬ 
der CALL-Befehl: 

CALL &BC02 

Dieser Aufruf setzt alle Farbre- 
gister wieder in den ursprüng¬ 
lichen Wert zurück. 

(Die Redaktion) 


Deutsche Sprache, 
schwere Sprache? 

Ich habe mir vor kurzem einen 
CPC 464 und einen NLQ 401 
Drucker gebraucht gekauft, um 
damit meine Korrespondenz so¬ 
wie sonstige Schreibarbeiten zu 
erledigen. Nun gibt es aber fol¬ 
gendes Problem: 

In meinem Textverarbeitungs- 
programm sind auch deutsche 
Umlaute möglich, die auch auf 
dem Bildschirm dargestellt 
werden. Wird dieser Text aller¬ 
dings auf den Drucker ausgege¬ 
ben, so erscheinen auf dem Pa¬ 
pier statt den ä ’s, ü ’s oder ö 's 
nur die normalen Zeichen. Wie 
kann ich das ändern ? 

K. Winter 
Berlin 

Wenn Sie an Ihrem Drucker 
den DIP-Schalter 3 umschalten, 
wird der NLQ 401 an den deut¬ 
schen Zeichensatz angepaßt. 
Diese Umschaltung wird auch 


im Handbuch des NLQ 401 be¬ 
schrieben. 

(Die Redaktion) 


BIT oder nicht BIT 

Nach langer BASIC- Program¬ 
mierungszeit bin ich nun auf die 
Maschinensprache umgestie¬ 
gen, und im Begriff, ein Action¬ 
spiel zu schreiben. Nun bleibe 
ich aber an einer Stelle hängen, 
und zwar möchte ich im Grafik¬ 
speicher (Bildschirm) einen be¬ 
stimmten Punkt abfragen, ob 
das Bit gesetzt oder nicht ge¬ 
setzt ist. (In BASIC gibt es den 
Befehl TEST x-Koordinate, y- 
Koordinate, der den Farbstift 
an diesen Koordinaten angibt.) 
Gibt es eine Firmware-Routine, 
die etwas Derartiges macht? 

S. Thomas 
Braunschweig 

Es gibt eine Routine, die genau 
das macht, was dem 
Assembler- Programmierer 
vorschwebt. Sie steht ab der 
Speicherstelle &BBF0 und 
nennt sich GRA-TEST ABSO¬ 
LUTE. Um mit dieser Routine 
richtig arbeiten zu können, ge¬ 
hen Sie folgendermaßen vor: 
Die Koordinaten des Bildpunk¬ 
tes berechnen, die x-Koordina- 
te in das Registerpaar DE, die 
y-Koordinatc in das Register¬ 
paar HL bringen, danach die 
Routine aufrufen. Allerdings 
heißt es dabei auch aufpassen. 
Befinden sich in den Register¬ 
paaren BC-, DE- und HL-Wer- 
te, die Sie nach dem Aufruf 
noch benötigen, so sichern Sie 
diese in freie Speicherzellen, da 
die Register durch die Routine 
zurückgesetzt werden. 

(Die Redaktion) 


Fragen zum CPC 6128 

Sehr geehrte Damen und 
Herren, 

ich arbeite seit einigen Monaten 
mit einem CPC 6128 und möch¬ 
te in nächster Zeit den Compu¬ 
ter um einige Teile erweitern. 
Deshalb hätte ich gerne einige 
Fragen beantwortet: 

1. Betrachtet man die Platine 
des CPC 6128 genauer, so fällt 
einem auf, daß sich unterhalb 
der ULA ein freier Platz fiir ei¬ 


nen Baustein befindet. Können 
Sie mir mitteilen, um welchen 
Baustein es sich dabei handelt 
bzw. zu welchen Zweck dieser 
freie Platz gedacht ist? 

2. Der CPC 6128 hat wie der 
JOYCE das Betriebssystem 
CP/M 3.0. Lassen sich Pro¬ 
gramme, die fiir CP/M 3.0 ge¬ 
schrieben wurden, ohne Ein¬ 
schränkungen auf beiden Com¬ 
putertypenbetreiben, oder gibt 
es gewisse Einschränkungen 
und welcher Art wären dann 
diese? 

3. Kann man Programme, die 
fiir den Apple Computer unter 
CP/M in M-BASIC geschrieben 
wurden, auf dem CPC 6128 un¬ 
ter CP/M 2.2 bzw. CP/M 3.0 
mit M-BASIC einsetzen bzw. 
gibt es die Computersprache 
M-BASIC fiir den CPC 6128? 

4. Lassen sich Programme, die 
auf dem JOYCE unter Mallard- 
BASIC entwickelt wurden, auch 
auf dem CPC 6128 nutzen und 
wenn ja, wie? 

Indem ich mich im voraus für 
Ihre Bemühungen bedanke, 
verbleibe ich mit freundlichen 
Grüßen 

Johannes Ebertsch 
Strullendorf-Geisfeld 

Zu 1.: Der Steckplatz auf der 
CPC 6128-Platine ist für eine 
zweite ULA-Version gedacht, 
läßt sich also nicht nutzen. 

Zu 2.: Solange das Programm 
nicht auf den Bildschirmspei¬ 
cher und den Soundchip zu¬ 
greift, müßte dieses möglich 
sein. 

Zu 3.: M-Basic ist in einer 
CP/M Plus-Version erhältlich. 
Zur Datenübertragung zwi¬ 
schen Apple und CPC finden 
Sie einen recht umfangreichen 
Beitrag in unserem CPC-Son¬ 
derheft 2/86 auf Seite 68. 

Zu 4.: Mallard-BASIC läuft 
auch auf dem CPC 6128. 

(Die Redaktion) 


Buchhaltung 
mit dem Computer 

Sehr geehrte Damen und 
Herren! 

Ich bin Eigner eines CPC 664 
und möchte die Buchhaltung für 
meine Kanzlei (ein Arbeits¬ 
platz) gerne mit Hilfe dieses 
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Etiketten für Disketten 

Im Lauf der Zeit hat sich bei mir 
eine ganze Menge der 
Schneider- üblichen Drei- 
Zoll-Disketten angesammelt. 
Naturgemäß sind nicht alle 
Programme für die Ewigkeit 
konzipiert worden, so daß es ab 
und zu vorkommt, daß eine Dis¬ 
kette neu formatiert wird, um 
neuen Programmen Platz zu 
machen. Und hier beginnt nun 
mein eigentliches Problem, die 
Etiketten der Disketten sehen 
nach mehrmaligem Beschrei¬ 
ben nicht mehr sehr ordentlich 
aus. Darum meine Frage: Wo 
kann man diese Etiketten neu 
bekommen?Selbsterstellte (mit 
Zettel und Schere) sind auch 
nicht gerade das Gelbe vom Ei. 

M. v. Korrenberg 
Iserlohn 


So wie es aussieht, werden Sie 
Ihre Etiketten wohl weiter mit 
Schere und Papier anfertigen 
müssen, denn uns ist leider nie¬ 
mand bekannt, der diese fertig 
verkauft. 

(Die Redaktion) 


Comal gesucht 

In der Schule lernen wir die 
Computersprache COMAL. Da 
ich diese Programmiersprache 
für meinen Schneider CPC 464 
nicht finde, bitte ich Sie, mir 
mitzuteilen, wo ich mich dies¬ 
bezüglich hinwenden kann. 

(A.Steng) 


Schaltplan 

für Datenrerecorder 

Sehr geehrte Damen und 
Herren, 

ich benötige für den von Data- 
Media GmbH Mailorder (Fir¬ 
ma existiert nicht mehr) vertrie¬ 
benen und von der CPC-Schei- 
der-Intemational Heft 3/86 be¬ 
schriebenen “Datenrecorder 
MC 3810“ einen Schaltplan. 
Wer kann mir helfen ? Wo kann 
ich einen bekommen? 

(H.Lürding) 

Da die Firma Data-Media nicht 
mehr existiert, ist es auch für 
uns nicht mehr möglich Unter¬ 
lagen anzufordern. Hier sind 
wieder unsere aufmerksamen 
Leser angesprochen. 

Die Antworten leiten wir gerne 
an Herrn Lürding weiter. Wer 
kann helfen? 

(Die Redaktion) 


Probleme 
mit dem Präsident 

Sehr geehrte Damen 
und Herren, 

für Ihr Schreiben und die Über¬ 
sendung des Programms “Co¬ 
pyshop “ danke ich Ihnen. Doch 
leider kann ich die Anpassun¬ 
gen an meinen Drucker “Präsi¬ 
dent 6313c“ mangels Sachkun¬ 
de nicht selbst vornehmen. 
Können Sie mir evtuell jeman¬ 
den nennen, der mir weiterhel¬ 
fen könnte? Ohne Hilfe wäre 
das Programm “Copyshop “für 
mich wertlos. 

(G.J.Jung) 


Computers erledigen bzw. er¬ 
leichtern. 

Können Sie mir angeben, ob es 
ein Programm gibt, das in An¬ 
lehnung an das Amerikanische 
Journal arbeitet und auf dem 
CPC 664 ohne Speichererwei¬ 
terung läuft? 

Mit bestem Dank im voraus 

Martin Zeller 
Lingen 

Folgendes Programm könnte 
Ihre Forderungen erfüllen: 
STAR-KONTOR von der Fir¬ 
ma SYBEX, Vogelsanger Weg 
111, 4000 Düsseldorf 30. Bitte 
informieren Sie sich dort 
vorher. 

(Die Redaktion) 


Wärmeprobleme 

Vor kurzem habe ich mir einen 
Computertisch gekauft, auf dem 
ich meine Geräte (CPC 464, 
DDl-1, CUMANA 51/4Zoll- 
Floppy, Farbmonitor) instal¬ 
liert habe. Dazu habe ich mir 
einen kleinen Monitorständer 
gebaut, unter dem ich die bei¬ 
den Floppies übereinander ge¬ 
stellt habe. Jetzt habe ich fol¬ 
gendes Problem: Wenn ich die 
Geräte anschalte (über eine 
Steckdosenleiste mit Schalter) 
passiert es manchmal, daß ent¬ 
weder eine oder alle beide 
Floppies nach einiger Zeit nur 
noch einen READ- ERROR von 
sich geben. Mir ist außerdem 
aufgefallen, daß beide Floppies 
unter dem Monitorständer 
ziemlich warm werden. Kann 
das der Ursprung des Fehlers 
sein ? 

H. Steinweg 
Kiel 

Dadurch, daß Sie beide Flop¬ 
pies übereinander in einen 
(wahrscheinlich) rundherum 
dichten Raum (Ständer) gestellt 
haben, kann es zu einem Wär¬ 
mestau innerhalb dieses Rau¬ 
mes kommen, der nach einiger 
Zeit die Schreib-/Lese- Köpfe 
verstellt. Wir können Ihnen nur 
dazu raten, beide Floppies ne¬ 
beneinander auf freiem Platz 
aufzustellen. Danach müßte der 
Fehler beseitigt sein. 

(Die Redaktion) 


Hier eine Adresse an die man 
sich vertrauensvoll wenden 
kann: 

Comal Vertrieb 
Derek Beiz 
2270 Utersum 
Tel. 04683-500 

Die Kosten betragen beim CPC 
464/664 mit Handbuch ca. 
139,- DM. Beim CPC 6128 
wird ein Adapter benötigt und 
kostet einschließlich Handbuch 
159,- DM. 

(Die Redaktion) 


Hier stehen wir auch vor einem 
Rätsel. Dieser Drucker ist uns 
unbekannt. Man sollte an dieser 
Stelle nochmals hin weisen: 
Kaufen Sie niemals einen 
“Exoten“-Drucker, denn er 
kann, wenn es um Grafik geht, 
starke Kopfschmerzen verursa¬ 
chen. Teilsweise ist es sogar 
unmöglich, irgendeine “Hard¬ 
copy“ zu erzeugen. 

Aber davon ab. Wer kann 
Herrn Jung bei seinem Problem 
helfen? 

(Die Redaktion) 


Augen auf beim Computerkauf 

1640 SW/ 2 Laulwetke 

1998,- 

1640 SWJ 20—MB— Platte 

2898,- 

1640 Color /20-MB-PlaUe 

3349,- 

1640 EGA-Color 2 Laufwerke 

3149,- 

1640 EGA-Color 20-MB -Platte 

3998,- 

20-MByte riiecaid Tandon 

798,- 

20-MByte filecard inkl Cunti 

20-MByte Hiecard lapine 

898- 

IT 2003 inklusive Controller o Take oM 

898- 

30-MB Filecard RLL 

998- 

20 MB Seagate ST 225 

498- 

30-MB Seagate ST 230 

549,- 

40-MB Seagate ST 251 

998,- 

Controller Omli 

149- 

Controller RLL 

229,- 

Soeicheraufrüslkit von 512 m. 640 Byte 

n.- 

Bildschirmliller PC 1512 t™. 1640 

59- 

SdlutZhaubC PC 1512 bzw 1640 2 

4935 

Schneider CPC 464 Keyboard 

279,- 

Schneider CPC 464 mit Grünmonitor 

389.- 

Schneider CPC 6120 mit Grünmonitor 

749,- 

Schneider CPC 6128 mit Farbmonitor 

1189.- 

Schneider CPC 6128 nur das Keytoard 

649- 

Schneider Monitor GT 65 

198- 

Schneider Monitor CTM 644 

598- 

floppy FD-1 Zwtillaufwerk 

479,- 

f-1 X ZwEillaiilwerk 5,25‘ 

758,- 

M-1 X Zweillautwerk 35" 

758- 

f-1 XRS Zweittaulwerk 5.25" 

B68- 

M-1 XflS 7wei1taüNierk 3ft' 

058- 

Cumana 3‘ Zweitlautwerk 

Bitte unbedingt Ihren Compntertyp angeben, Dante 

398- 

Schneider PCW B256 ia/ce 

Schneider PCW 8512 Joyce 

998- 

mit 1 -MByte-Lautvierk und 512 K RAM 

1498- 

P0-2 (2 Lautmerk 1 MB für Joyce) 

549.- 

3- Disketten CF 2 00 für 1 MB LauMterk 5 Sick 

89,- 

RAM-Eiweiterwig v. 256 aut 512 KByte 

Wichtiges Zubehör lür Ihren CPC 

89, 

3' Disketten Panasonic 1 Maxell CP 2 Kl Sick 

79,- 

35' Distelten Ptatirwn 2 DO 1351|» »Sfck 

3995 

6,25' Disketten DSfOD Plalinum 10 Sick 

2995 

dilo jedocti HD 96 Ipi 10 Sick 

4995 

Netzteil MP-2 für alle CPC 

99- 

RAM-Etweiterung der Fa Wxtex bis heute nur tür den CPC 

464 bzw. 664 erhältlich 

BAM ErwilerungSP-256 

298- 

RAM-Enneiterung SP-512 

398- 

RAM-Erweiterungssatz um 256 KByte 

98- 

Bildschirmfilter tür GT 64v«5 

3935 

Bildschirmfilter lür CTM 640644 

4435 

Monitor-Drehhfl slulenloser Neigungavinkel 

3996 

Wrlängerungskabel 15 m tür CPC 464 

2935 

dilo lür CPC 664r6128 

3435 

Staubschulzhäuten aus weichem Kunstleder; schneider- 
grau, lür folgende Geräte lieferbar: 

Keyboard 464/66416128, 

Monitor gtüri/color 

Drucker NID 401, DMP 2000(3000, 

Panasonic 10809031. Epson l X-86/B00 je nur 

2295 

Panasonic 1092/1592. Nec P6, DMP 4000 je nur 

2435 

Epson EX-85, FX—800.FX 1000 je nu 

Schutzhaube Rauchglas lür Konsole 

2435 

CPC 464/664/6128 je nur 

2495 

RS 232 C, serielle Schnittstelle CPC 464/664/6128 

148- 

Akustikkoppler Dalapbon S 21 d 

249.- 

Akustikkoppler Dalapbon S 23 d M200 Baud 

369- 

AMX-Maus, Software inkl deutschem Handhuch 

279,- 

Formularirakiot zu Drucker NIQ 401 

69,95 

Joystick, Quickshot II 

1795 

Competition Pro 5000 mH Mlkrnschalter 

3995 

Joystick-Adapter zu AnschluS von 2 Joysticks 

1995 

Diskettenbox lür 40 Sick 3" bzw. 35' 

3995 

wie Oben, ledoch lür 40 Sick 5,25 Disk 
auch preiswerte Sonderangebote ab Lager Beterbar 
Dructerpanäde' Druckerparade' Dructeiparade' 

4995 

Lpson LX-BOO 

549- 

Epson FX-800 

998- 

Epson FX-1000, breit 

1298.— 

Epson LQ—850 

1496- 

Epson LQ -1050 

1929- 

Epson LQ—2500. breiL 24 Nadeln 

2598- 

Epsnn EX-BOO 

1398- 

Epson EX-1000. breit 

1698- 

Epson SQ-25000 Tinte 

3298- 

Color Einbau—Sei lür EX 80(21000 

229.- 

Fpson HI-80,4 Farb-Plotter 

1249- 

NEC P220G 24 Nadeldrucker 

998- 

NEC P6 absolute Spitze 

1298 

NEC P 6 Color 

1649- 

NEC P Z breit 

1598- 

NEC PZ Color 

1949, 

Pin-Feed-Traklor P6 

139,- 

Pin—Feed—Traktor PZ 

249- 

Bkä -Traktor P 6 

329- 

Bicfl -Traktor P7 

369,- 

Slar NL—10 mll Interface 

549,- 

Star NX-15 breit 

1249- 

SlarND-10 

929,- 

Slar NB—15 brell 

1249,- 

Slar NB 24 - 10 

1498- 

Slar NB 24 - 15 

1/98- 

Einzclblatlelnzug NL 10 

269. 

Oruckeranschlußkabel, CPC 464/664/6128 nur 

30- 

dilo. lür alle Schneider PC 

30.- 

Druckerständer, 1a QualHäl, Multitorm 

98- 

Druckeiständcr, Preishil nur 

3935 

Endlospapier, weiB Mikroperloralion 500 Blatt 

1995 

d«a 1000 Blatt 

3435 

dito. 2000 Blatt 

Auslandsllelerung tür die Schweiz ab Lager Zürich 

4935 

lomsdo Computervertrieb GmbH 
Wanganer Straße 99. 

D-7980 Ravensburg 

Tel.: 07 51/39 51 
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The show 
must go on. 

Computermesse COMDEX im Spielerparadies Las 
Vegas lockt Besucher aus aller Welt an. Die Glitzer¬ 
welt der riesigen Neon-Leuchtreklamen um die un¬ 
zähligen Spielhöllen mit ihren Slot Machines,Po¬ 
ker-,Roulette-, und wer weiß was sonst noch -Tischen 
zieht einmal jährlich die Computerbranche in ihren 
Bann. Und Neues gibt es immer wieder zu be¬ 
richten.... 


Vom Messecharakter her kann die 
COMDEX durchaus mit der 
Münchener SYSTEMS vergli¬ 
chen werden, eine reine Fachmes¬ 
se also. Alle namhaften Hersteller 
nutzten die Gelegenheit, ihre Pro¬ 
dukte einem fachkundigen Publi¬ 
kum zu präsentieren und konnten 
mit dem Andrang hoch zufrieden 
sein. 


Highlights 


Im Bereich der Mikroprozessor¬ 
technologie setzt eine Entwick¬ 
lung ein, die in den nächsten Jah¬ 
ren zum Tragen kommen wird. 
Im IBM-kompatiblen Sektor be¬ 
herrschen Intels 80386-Prozes- 
soren die Szene, während die 
286-er (die sogenannten ATs) 
schon fast zu Heim-PC Preisen 
erhältlich sind. Auf die Vorstel¬ 
lung eines 80486-Prozessors mit 
64bit-Verarbeitung muß aber 
noch eine Weile gewartet werden. 
Hochleistungstechnologie findet 
zur Zeit bei der Entwicklung der 
sogenannten Transputer statt. 


Transputer sind Computer, die in 
der Lage sind, eine Parallelverar¬ 
beitung von Befehlen zu ermögli¬ 
chen. So sind Geschwindigkeiten 
von 40 bis 150 MIPS (Millionen 
Befehle pro Sekunde) zu errei¬ 
chen. Vorrangige Anwendungen 
liegen im Bereich der super¬ 
schnellen Datenverarbeitung so¬ 
wie im Grafikbereich. Atari ar¬ 
beitet an diesen sogenannten 
RISC-Machines mit Hochdruck. 
Apropos Atari: Vorgestellt wurde 
u.a. die neue PC-Produktlinie mit 
dem PC2 (IBM-kompatibler PC 
mit Sleckplätzen, Preis ca. 
$1000); dem PC3 AT-kompati- 
bler PC,ca. $2000) sowie dem 
PC4 (80386-PC,ca. $3000). 

Im Frühjahr 1988 sollen die Sy¬ 
steme auch in Europa erhältlich 
sein. 

Etwas überrascht verweilten wir 
am AMSTRAD-Stand, der vor 
gähnender Leere nur so strotzte. 
So war denn auch ein neuer PC, 
der PPC 640 nicht zu übersehen. 
Hier handelt es sich um einen por¬ 
tablen, IBM-kompatiblen PC mit 
LCD-Bildschirm und eingebau¬ 
tem Modem. Letzteres trägt dafür 



Bild 1: Die Atari PCs im neuen Gewand.... 



Sorge, daß der PPC bei uns nicht 
kommen wird, die Postnorm gibt 
diesem, eigentlich interessanten 
Gerät keine Chance. Überhaupt 
tut sich Amstrad auf dem USA- 
Markt sehr schwer und fristet bis¬ 
lang nur ein Schattendasein. 
Aktuelles Thema sind ebenfalls 
die neuen VGA-Grafikkarten, die 
sowohl in ihrer Auflösung und 
Farbenvielfalt bestechen. Aller¬ 
dings liegen die Preise noch um 
etwa DM 1500,-, bei entspre¬ 
chender Preissenkung können 
diese aber durchaus zum Standard 
avancieren. 

Seit geraumer Zeit versuchen die 
Entwickler von Speichermedien 
Anschluß an die fortschreitenden 
Anforderungen seitens der Indu¬ 
strie und der Anwender zu finden. 
Verba tim hat nun einen Datenträ¬ 
ger im 5,25-“ Format im Ange¬ 
bot, der bis zu 6,6 Megabyte for¬ 
matiert werden kann. Diese Kapa¬ 
zität wurde durch ein neues, spe¬ 
zielles Aufzeichnungsverfahren 
ermöglicht. 

Die sogenannten CD-Roms erfah¬ 
ren im nächsten Jahr einen kräfti¬ 
gen Schub. Das auf der COM¬ 
DEX vorgestellte System 


WORMS (write only-read multi¬ 
ple) kann allerdings nur einmal 
beschrieben, dafür aber beliebig 
oft gelesen werden. Für große, 
sich nicht ändernde Datenbestän¬ 
de eine sicher nicht uninteressante 
Alternative im 5,25-"-Format, 
wenn auch nicht der Weisheit 
letzter Schluß. Kodak präsentierte 
da schon eine praktikablere, unse¬ 
res Erachtens fast revolutionäre 
CD-Lösung. Auf einer 3,5-“ 
Scheibe lassen sich nicht nur meh¬ 
rere zig-Megabyte (die genaue 
Ausbaustufe stand noch nicht fest) 
speichern, der wahlfreie Zugriff 
Lesen-Schreiben w urde hier erst¬ 
mals voll realisiert. Gespannt darf 
man hier auf die Verkaufspreise 
dieser Speichermedien sein, die 
sichlt. ersten Aussagen nicht über 
DM 1500,- bewegen sollen. 


Es tut sich was... 


IBM, in Kooperation mit Micro¬ 
soft seit Jahren Trendsetter in Sa¬ 
chen PC-Standard, hat mit dem 
neuen Personal System 2 schon 
Anfang 1987 für Aufregung ge- 
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Bild 2: Amsrrads portabler PPC640 mit eingebautem Modem. Bei uns wird 


er nicht erhältlich sein. 


sorgt. “Thanks a million“, dieser 
Spruch war in Las Vegas allent¬ 
halben zu sehen und hören; IBM 
dankt für eine Million weltweit 
verkaufter PS/2-Systeme! 

Ab 4. Dezember läuft nun auch 
die Auslieferung von Microsoft’s 
neuem und sagenumwobenen Be¬ 


triebssystem OS-2, das nebst eini¬ 
gen Applikationen wie z.B. Pre¬ 
sentation Manager zu begutachten 

war. 

Bemerkenswert ist, daß sich rund 
um die PS- und OS-Linie eine 
große Schar an Produkten gesam¬ 
melt hat. die bereits in Stückzah¬ 



Bild 3: Charakteristisch: PCs in allen Farben 
und Formen... 


len erhältlich sind. Viele Anbieter 
setzen also voll auf die neue IBM- 
Familie. 

Während der insgesamt fünf Mes¬ 
setage hatten wir eine interessante 
Begegnung am Rande. Wir trafen 
mit Sir Clivc Sinclair einen Vete¬ 
ranen der Heimcomputer-Ära, 
seine Computer ZX80- und -81 
sowie Spectrum sind wohl vielen 
noch in guter Erinnerung. Nun 
kommt er mit dem Z-88, einem 
portablen PC mit ROM-Software 


ohne Speichermedium zurück. 

Das Gerät soll mehrere Stunden 
ohne Netzbetrieb arbeiten und der 
ideale Partner für unterwegs sein. 
Wer es also etwas exotisch mag — 
bitte schön. 

Insgesamt konnten an den fünf 
Messetagen mehr als 100000 Be¬ 
sucher gezählt werden, diese be¬ 
eindruckende Zahl spiegelt den 
Stellenwert der COMDEX wohl 
deutlich wieder. 

(SR) 



\eite Projekte von Rainbow Ans 


Nach einer längeren Pause legt 
das Gütersloher Softwarehaus 
Rainbow Arts neue Programme 
für den CPC vor. 

Drei Titel sind angekündigt. 
Street Gang und Bad Cat, beides 
Titel, die bereits für den Atari St 
vorliegen. 

Außerdem wird es einen neuen 
Volleyball Simulator geben. 

Das Besondere bei diesem Spiel 
wird ein Taktik-Editor und eine 
drei Spieler-Option sein. 

Info 

Fachhandel 

□ 



Neuer 

Competition 
Pro Joystick 

Das Konzept der Mi- 
croschaltergesteuer- 
ten Competition Joy¬ 
sticks hat sich be¬ 
währt. Nun legt die 
Firma Dynamics das 
jüngste Produkt vor. 
der neue Competition 
Pro. Drei Zusatzfunktionen wur¬ 
den in den Joystick integriert. 
Über einen Schalter kann der 
Stick von Normalbetrieb auf Dau¬ 
erfeuer bzw. Slow-Motion umge¬ 
stellt werden. Leider funktioniert 
am CPC die SIow-Motion-Funk- 


tion,die die Spiele um 50% ver¬ 
langsamen soll, nicht. Das Dauer¬ 
feuer arbeitete bei mehreren Tests 
mit verschiedenen Spielen ohne 
Probleme. 

Info: Fachhandel □ 


Deutsches Rechtschreibprogramm 


CARLOS nennt sich ein deut¬ 
sches Rechtschreibprogramm für 
IBM- und kompatible Systeme. 
Das Programm prüft Texte be¬ 
reits während der Erfassung, da¬ 
für stehen etwa 450000 Wörter im 
Lexikon zur Verfügung. 

Der Anwender kann dieses selbst 
erweitern und so mehr als 1 Mil¬ 
lion Wörter erfassen. 

Dabei werden gleichzeitig die Sil¬ 
bentrennungen unsichtbar mit in 
den Text auf genommen. 

Darüberhinaus ist CARLOS mit 
den DTP-Programmen Ventura 
und PTS-Publisher kompatibel, 
unterstützt werden z.B. die Text¬ 
programme Euroscript, PCTEXT, 


Word, WordPerfect, PTS etc. 
Carlos kostet ca. DM 911.- und 
ist sowohl auf 5,25“- als auf 3,5-“ 
Format erhältlich. 

Im Angebot ist desweiteren ein 
englischsprachiges Wörterbuch 
mit rund 100000 Wörtern (ca. 
DM 226,-) und ein zusätzliches 
deutsch-schweizerisches, das die 
Besonderheiten der Eidgenossen 
berücksichtigt. 

Info: 

Assistent Datentechnik 
Postfach 111 i 
5220 Waldbröl 

□ 


Datenkonvertierung 

Umsteiger von 8-bit CP/M-Com- 
putern auf MSDOS oder Atari ST 
können zum Preis von DM 28,— 
ihre Daten konvertieren lassen. 
Der Preis beeinhaltet jeweils eine 
Diskette. 

Als zusätzliche Option können 
Wordstar-Dateien in ASCII und 
die Umlaute von ASCII in die 
Umlaute des IBM- bzw. Atari- 
Zeichensatzes umgewandelt wer¬ 
den. 


Dabei umfassen die CP/M-For- 
mate alle Laufwerksgrößen von 
3“ bis 8“. 


Info: 

Mathematisches Softwarebüro 
Bernd Drost 
Schulstraße 67 
6382 Friedrichsdorf 

□ 
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MISCO CompuRack 


Wer Platzprobleme mit seinem 
Computersystem hat, für den gibt 
es von der Firma MISCO ein spe¬ 
zielles Computer-Rack. Mit die¬ 
ser Lösung kann jeder normale 
Schreibtisch in wenigen Minuten 
in eine voll funktionsfähige Ar- 
beitsstation verwandelt werden. 
Das Rack wird komplett mit hö¬ 
henverstellbarem Schwenkarm 
für Bildschirm- und Tastaturabla¬ 
ge, integrierter Drucker- und Pa¬ 
pierablage und mit einer platzspa¬ 
renden Vertikal-Halterung für 
den Rechner geliefert. Das Prak¬ 
tische daran ist, daß CompuRack 
kaum Tischfläche wegnimmt und 
fast keinen zusätzlichen Platz be¬ 
ansprucht. Der schwenkbare 
Bildschirmtragarm ermöglicht die 


optimale Einstellung, da er hö¬ 
hen-, winkel- und neigungsver¬ 
stellbar ist. Durch seine 360 Grad 
Schwenkmöglichkeit kann der 
Computer beiseite geschoben 
oder auch von mehreren Anwen¬ 
dern benutzt werden. Die Verti¬ 
kal-Halterung für den Computer 
ist unter der Druckerablage pla¬ 
ziert und ist in Höhe und Breite 
auf alle gängigen Rechner ein¬ 
stellbar. Besonders praktisch ist 
auch die integrierte Papierablage. 

Die Firma MISCO liefert diesen 
praktischen Helfer für 798, — DM 
zzgl. MwSt. innerhalb 24 Stunden 
nach Auftragseingang. 

Info; MISCO EDV-Zubehör GmbH 

Nordendstr. 72/74 

6082 Mörfelden-Walldorf 


Computer-Bequem-Kauf 


Stardrive Diskettenstationen für den CRC 


Die Firma G+K electronic bietet 
hochwertige Diskettenstationen 
für die CPCs an. Das 3“-Zoll 
Zweitlaufwerk für alle CPCs im 
formschönen Gehäuse mit inte¬ 
griertem Netzteil, 2 x 40 Tracks, 
360 KB kostet inkl. Anschlußka¬ 
bel 289,- DM. 

Auch ein 5,25“-Zoll Stardrive 
Laufwerk, 2 x 40 Tracks, 360 KB, 
Headlift, 2 S/L-Köpfe, integrier¬ 
tes Netzteil sowie Anschlußkabel 


mit integriertem Seitenumschalter 
ist als Zweitlaufwerk für 398,- 
DM und als Erstlaufwerk zusätz¬ 
lich mit CP/M 2.2, Controller 
und Handbuch für DM 498, — er¬ 
hältlich. 

Weitere Angebote und Informa¬ 
tionen erhalten Sie von: 

G + K electronic 
6759 Hefersweiler 
Tel.: 06374-6878 oder 
06359-2582 


SHAMR0CK-CAD 


Wer Schaltbilder auf seinem PC 
zeichnen möchte, für den gibt es 
von der Firma Shamrock das Pro¬ 
gramm SHAMROCK-CAD. 

Zum Zeichnen stehen dem An¬ 
wender die Grundelemente Linie, 
Kreis, Kreissegment und Text zur 
Verfügung. Zum Lieferumfang 
gehören u.a. mehrere Bibliothe¬ 
ken mit den 400 gängigsten TTL- 
Symbolen nach der aktuellen 
IEC-Norm. Andere Schaltzeichen 
können jedoch auch selbst er¬ 
stellt, erweitert oder verändert 
werden. Die Schaltzeichen lassen 
sich vor der endgültigen Positio¬ 
nierung mit einem Fadenkreuz 
drehen, verschieben, vergrößern 
oder verkleinern. Eine automati¬ 
sche Justierfunktion erlaubt das 
punktgenaue Ansetzen an vorhan¬ 
dene Linien. SHAMROCK-CAD 


kann alle marktüblichen Plotter 
sowie IBM- oder EPSON-kompa- 
tible Matrix-Drucker steuern. 
Eine maßstabsgerechte und ver¬ 
zerrungsfreie Wiedergabe ist je¬ 
doch nur auf einem Plotter gege¬ 
ben. 

Das Programm ist zum Preis von 
DM 495, - in drei Versionen lie¬ 
ferbar: 

(1) CAD-EGA für PCs mit EGA- 
Karte, jedoch monochrome Dar¬ 
stellung. 

(2) CAD-CGA/HGC für Rechner 
mit CGA- und Herculeskarte und 

(3) CAD-OLI für Olivetti PCs. 

Info: 

SHAMROCK Software 
Vertriebs GmbH 
Karlstr. 35 
8000 München 2 



Monitorständer 


Die SKG Bank, Saarbrücken bie¬ 
tet eine spezielle Dienstleistung 
für alle diejenigen an, die Ihren 
Computer in bequemen Teilbeträ¬ 
gen erwerben möchten. 
Computer-Bequem-Kauf nennt 
sich die Alternative zur sofortigen 
Bezahlung des Kaufpreises. Bei 
einem Kaufpreis von z.B. 
3500, - DM ist die Bezahlung in 
Teilbeträgen ab DM 78,- mög¬ 
lich. Während dem privaten Kun¬ 


den der Computer-Bequem-Kauf- 
Kredit zu empfehlen ist, ziehen 
viele gewerbliche Abnehmer Ab¬ 
schlüsse auf Leasingbasis vor. 
Die SKG Bank bietet beide Mög¬ 
lichkeiten an. 

Informationen und individuelle 
Beratung erhalten Sie bei der: 
SKG Bank 
Cecilienstr. 4 
6600 Saarbrücken 
Tel.: (0681 )-30301 -0 


Einen pfiffigen dreh- und 
schwenkbaren Monitorständer für 
12“- und l4“-Monitore bietet der 
Vortex Versand jetzt an. 

Hervorstechend ist die Tatsache, 
daß man den Fuß mittels eines 
vorn angebrachten Rändelrades 
verstellen kann, ohne den Moni¬ 
tor entfernen zu müssen. Der 


Standfuß wird in zwei Versionen 
angeboten: das 12“-Modell kostet 

39.90 DM; das l4“-Modell (z.B. 
CTM 640 und JOYCE ist für 

49.90 DM zu haben. 

Info: 

Vortex Versand 
Falterstraße 
7101 Flein 
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Datenübertragung JOYCE/PC 


Einen Datenübertragungsservice 
bietet die Firma EDV Service in 
Düren für Umsteiger an. JOYCE- 
oder CPC 6128-Besitzer können 
ihre Textdisketten einsenden, de¬ 
ren Inhalte ins 5,25“ MSDOS- 
Format konvertiert werden. Der 
Preis für die Konvertierung einer 


Diskette beträgt 20,- DM kom¬ 
plett. Für jede weitere Diskette 
sind dann jeweils 5,- DM zu ent¬ 
richten. 

Info: EDV Service 
Gürzenicher Str. 1 
5160 Düren- Rölsdorf 


Amateurfunk auf der CHIP Hamburg 


Erstmalig wird vom 21.-24. Ja¬ 
nuar 1988 in Halle 12 des Ham¬ 
burger Messegeländes eine Elek¬ 
tronik- und Computermesse na¬ 
mens CHIP’88 veranstaltet wer¬ 
den. Hier sind auch die Hambur¬ 
ger Funkamateure mit einem Ge¬ 
meinschaftsstand vertreten, wel¬ 


che modernste Kommunikations¬ 
techniken und Anwendungen des 
Microcomputers im Amateur¬ 
funkbereich täglich von 10 bis 18 
Uhr vorstellen werden. 

Info: Gerhard Hoyer, DJ 1 GE 
Palmerstr. 5 
2000 Hamburg 26 


Ein Paket zur Nachrüstung der 
Schneider PCs mit Hercules-Gra- 
ftk bietet jetzt die Firma PC- 
Technik in Hennefan. Enthalten 
sind: 

- ein TTL-Monitor in mehreren 
Bildschirmfarben, Auflösung 
720x350 Punkte 

- Eine Herculeskarte zum Ein¬ 
stecken in einen freien Slot 

- eine switching-Software zum 
Umschalten zwischen Origi¬ 
nal- und Fremdmonitor 

- alle benötigten Anschlußkabel 


Die Installation ist in ca. fünf Mi¬ 
nuten auch von Ungeübten erle¬ 
digt; mit geeigneter Software ist 
die gleichzeitige Arbeit an zwei 
Monitoren möglich. Beispiel: Ein 
CAD-Programm stellt die Grafik 
am externen Hercules-Monitor, 
das dazugehörige Bedienungsme¬ 
nü am normalen PC-Monitor dar. 
Der Preis für obengenanntes Pa¬ 
ket beträgt 479,- DM. 

Info: PC-Technik 
Rheinstr. 16 
5202 Hennef 


Rechtschreibprüfung für LocoScript-Texte 


Ein Rechtschreibprüfungspro¬ 
gramm für LocoScript-Texte bie¬ 
tet jetzt die Firma ARNOR für 
JOYCE-Besitzer zum Preis von 
70.- DM an. Das deutsche Wör¬ 
terbuch beinhaltet 44000 Wörter; 
pro Minute lassen sich etwa 1500 


Wörter auf korrekte Rechtschrei¬ 
bung überprüfen. Das Wörter¬ 
buch läßt sich nach eigenen Wün¬ 
schen erweitern. 

Info: Arnor Deutschland 
Hans-Henny-Jahnn-Weg 21 
2000 Hamburg 76 



GBase jetzt deutschsprachig 


Die unter GEM arbeitende rela¬ 
tionale Datenbank GBase wird 
vom Hersteller SPI jetzt mit un- 
\eränderten Leistungsmerkmalen 
in der deutschsprachigen Version 
ausgeliefert, GBase ist zum Preis 


von ca. 395,- DM im Fachhandel 
erhältlich. 

Info: SPI 

Rosenkavalierplatz 14 
8000 München 81 



Mit LEGO Technic Control bietet 
jetzt die LEGO GmbH ein Schu¬ 
lungssystem für MSDOS-Rech- 
ner an. Anhand von Beispielen 
(z.B. eine computergesteuerte 
Tür) erarbeiten die Schüler auto¬ 
matische Steuerungsabläufe, wo¬ 
bei eigene Computerprogramme 
entwickelt werden. 


LEGO Technic Control besteht 
aus der Software LEGO Lines, 
dem LEGO Interface, den LEGO 
Systemsets und dem Lehrerhand¬ 
buch. 

Info: LEGO GmbH 
Postfach 20 
2354 Hohenwestedt 


Plottersoftware für NEC Pinwriter 


NEC präsentiert PINPLOT, eine 
Software, die aus jedem Pinwriter 
einen Plotter macht. 

Mit Hilfe dieses Programms wer¬ 
den die 24-Nadler von NEC für 
grafische Anwendungen aufberei¬ 
tet, wodurch sich Bilder und Gra¬ 
fiken, die auf diese Weise zu Pa¬ 


pier gebracht werden, durch hohe 
Druckqualitäl auszeichnen. PIN¬ 
PLOT ist für ca. 70,- DM im 
Fachhandel erhältlich. 

Info: NEC Deutschland 
Klausenburgerstr. 4 
8000 München 80 


Video-Datenbank 

Allen Interessentenkreisen, die 
schnell und umfassend Informa¬ 
tionen über Videorecorder, 
Videokameras usw. benötigen, 
steht jetzt die l.videoDATEN- 
BANK im MSDOS-Format auf 
Diskette zur Verfügung. Über 
30000 Gerätedaten wie Maße, 


Filtergewinde, Objektivanschlüs¬ 
se, Video-/Audio-Anschlüsse usw. 
können hier fein gefiltert abgeru¬ 
fen werden. 

Info: Pressebüro Förster 
Kiesenbacher Str. 40 
7892 Albbruck 
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Btx? Btx! 

Eine Einführung in 
Bildschirmtext 

Das Btx-Netz ist eine noch recht junge Dienstleistung der 
Bundespost. Schneider-Besitzer waren bislang auf Btx- 
fähige TV-Geräte oder spezielle teure Btx-Terminals an¬ 
gewiesen, um dieses Netz mit seinen Angeboten nutzen zu 
können. Nun kann, nachdem das Btx-Modul für die 
CPCs endlich verfügbar ist, auch der geneigte Homecom¬ 
puter-Anwender ans Netz gehen. Die nötigen Grundlagen 
zum »mitreden« soll Ihnen dieser Bericht geben. 


Wie alles begann... 


Im Jahre 1971 wurde in Großbritan¬ 
nien das Modell eines Telekommunika- 
tionsnetzes namens »Viewdata« vorge¬ 
stellt, welches als Grundgedanke die 
Verknüpfung von TV und Telefon zur 
Basis hatte, das heißt, Daten sollten 
vom Sender über das öffentliche Tele¬ 
fonnetz an beliebige Empfänger über¬ 
mittelt werden und dort auf einem Bild¬ 
schirm sichtbar gemacht werden kön¬ 
nen. Die Kombination TV/Telefon 
schien als Grundlage ideal für eine 
Verbreitung, da diese Geräte schon da¬ 
mals in der Überzahl der Haushalte zur 
Verfügung standen. 

Auf der Basis des Viewdata-Systems 
entwickelte die Deutsche Bundespost 
ein System namens Bildschirmtext, 
welches im Jahre 1977 erstmals öffent¬ 
lich vorgestellt wurde. Feldversuche 
begannen in 1980; das Angebot dieses 
Fernsprechdienstes erfolgte dann im 
Jahre 1983. Inzwischen ist dieses Kom¬ 
munikationssystem Euro-normiert; der 
CEPT-Standard verfügt über einen für 
alle Teilnehmer gleichermaßen gülti¬ 
gen multinationalen Zeichensatz, so 
daß der Nachrichtenaustausch am Bild¬ 
schirm über die Telefonnetze der ein¬ 
zelnen Länder keine Zukunftsmusik 
mehr ist. 


Was kann Btx? 


Vereinfacht gesagt, ist Bildschirmtext 
ein um eine wesentliche (nämlich die 
visuelle) Dimension erweitertes Tele¬ 
fon. Beispiel: Um das aktuelle Angebot 
eines Reisebüros zu erfahren, mußte 
man bislang telefonische Auskünfte 
einholen und das Gesprächsergebnis 
notieren. Ergaben sich weitere Nach¬ 
fragen, mußte wiederum angerufen 


werden; Mißverständnisse waren vor¬ 
programmiert. Im Btx-Netz kann der 
Reiselustige das-gleiche aktuelle Ange¬ 
bot des gleichen Reisebüros in Ruhe 
»durchblättem«, die Seite mit einem in¬ 
teressanten Angebot kann auf einen an¬ 
geschlossenen Drucker ausgegeben 
und ausgewertet werden. 

Die Einbindung des »Endverbrau¬ 
chers« geschieht (natürlich nur posta¬ 
lisch abgesegnet) nach dem Schema in 
Bild 1. CPC-Besitzer, die das Btx-Mo- 
dul ihr Eigen nennen, werden direkt 
am Modem angeschlossen — das Farb- 
TV mit eingebautem Btx-Decoder ent¬ 
fallt hier natürlich. Die Daten¬ 
übertragung erfolgt nach Umwandlung 
des Bildschirminhalts in ein reines Da¬ 
tenformat seriell mit einer Geschwin¬ 
digkeit von ca. 120 Zeichen/sec (Emp¬ 
fangen) und ca. 7,5 Zeichen/sec (Sen¬ 
den) über das Telefonnetz. Dies mag 
auf den ersten Blick etwas langsam er¬ 
scheinen; die Art der zu übertragenden 
Informationen und die umfangreichen 
Sicherungs- und Prüfmaßnahmen 
rechtfertigen diese Geschwindigkeit je¬ 
doch durchaus. Nach der An wähl der 
Btx-Zentrale und Eingabe des zugeteil- 



Bild 1: So wird Btx im Normalfall im Wohnzim¬ 
mer installiert... 


ten Passwortes, welches Ihren An¬ 
schluß nach der Installation des Mo¬ 
dems vor dem Zugriff unberechtigter 
Personen wie z.B. dem Filius schützt, 
steht (fast) die gesamte Palette der Btx- 
Anbieter zur Verfügung. Ausgenom¬ 
men vom Zugriff durch die Allgemein¬ 
heit sind nur besondere Benutzergrup¬ 
pen wie Ärzte oder Anwälte, die für 
Mitglieder bestimmte geschützte Infor¬ 
mationen zur Verfügung stellen. Je¬ 
doch stellen über 3400 regionale und 
überregionale Anbieter ein reichliches 
Informationsangebot aus allen Berei¬ 
chen zur Verfügung. 

Einige Beispiele: Neben den erwähnten 
Reisebüros bieten auch Fluglinien und 
Versandhäuser (hier auch eine Vertre¬ 
terin der Ehehygiene-Branche) ihre 
Dienste an; die bekannte Zeitschrift 
»Test« stellt den Inhalt des neuesten 
Heftes vor, regionale Autohäuser in¬ 
formieren über aktuelle Preise, ebenso 
bieten Ihnen die deutschen Apotheken 
Tips zur Linderung von Halsschmer¬ 
zen mit altbewährten Hausmitteln. Btx- 
Teilnehmer sind übrigens auch in der 
Lage, Mitteilungen an TELEX-Inha- 
ber zu versenden bzw. TELEXe zu 
empfangen; ersteres ist jedoch mit den 
üblichen Telex-Gebühren belegt, so 
daß diese Möglichkeit wohl hauptsäch¬ 
lich von gewerblichen Anwendern ge¬ 
nutzt werden wird. Ein weiteres Featu¬ 
re von Bildschirmtext ist der Zugriff 
auf Ihr Girokonto vom Femsehsessel 
aus. 

Die Bundespost und die meisten großen 
Banken bieten Ihnen diesen Service, zu 
jeder Tages- und Nachtzeit beliebige 
Überweisungen zu tätigen (einzige 
Ausnahme: Bargeld). Um den Zugriff 
von Btx-Piraten auf ihr sauer verdien¬ 
tes Geld unmöglich zu machen, erhal¬ 
ten Sie zusätzlich zum Btx-Passwort 
eine »Persönliche Identifikationsnum¬ 
mer« (PIN) und »Transaktionsnum- 
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mem« (TAN), die Sie vor jedem Bu¬ 
chungsvorgang eingeben müssen. 

Nicht zuletzt sei hier die Telesoftware 
erwähnt, die Sie in den Genuß kommen 
läßt, fertige Programme gegen Gebühr 
direkt über das Telefonnetz in den 
Rechner einzuspielen und abzuspei¬ 
chern. Diese Telesoftware wird für be¬ 
stimmte Rechner angeboten und ist 
auch nur auf diesen lauffähig. Wir im 
DMV sind an der Arbeit, ausgewählte 
DATABOX-Programme über Btx an¬ 
zubieten, beachten Sie daher unsere 
DATABOX-Angebote im Heft! 


Was kostet Btx? 


Ihren CPC oder PC haben Sie ja schon. 
Was Sie also benötigen, ist das Schnei- 
der-Btx-Modul für den CPC (399,- 
DM) oder eine Btx-Karte für Ihren PC 
(bitte Inserate beachten). (JOYCEr, so 
leid es mir tut, müssen bislang noch auf 
Btx verzichten...) Der Anschluß eines 
Modems kostet (soweit Sie schon über 
ein Telefon verfügen) 65,- DM; die 
laufenden Kosten (Modulmiete inbe¬ 
griffen) betragen 8,— DM pro Monat. 
Ansonsten fallen nur Kosten bei der 
Arbeit mit Btx an, und zwar Telefonge¬ 
bühren für Orts-/Nahbereichsgesprä- 
che (je nachdem, ob Sie regionale oder 
überregionale Seiten angewählt haben) 
und Nebenkosten für bestimmte 
Dienstleistungen. 

Im Durchschnitt liegen die Kosten für 
eine halbe Stunde Btx-Benutzung kom¬ 
plett um ca. 1,— DM (kostenlose Sei¬ 
ten); diese Gebühren werden monatlich 
mit Ihrer Telefonrechnung erhoben. 
Die meisten der angebotenen Seiten 
sind kostenlos; für gebührenpflichtige 
Seiten (so auch Telesoftware) kann der 
Anbieter maximal 9,99 DM/S verlan¬ 
gen, mit denen ebenfalls Ihre Telefon¬ 
rechnung belastet würde. Eine Bild¬ 
schirmseite faßt übrigens 1600 Byte im 
Datenformat, so daß Ihnen für ein 16 
KB langes Programm (auf zehn Seiten 
'•erteilt) maximal 99,90 DM berechnet 
■a erden dürfen. 


Das Feld bestellen... 


Hat die Post auch bei Computerbesit- 
zem nicht den besten Ruf (sitzt sie doch 
hennengleich auf dem Monopol für die 
öffentlichen Kommunikationsnetze), 
so muß man doch einräumen, daß der 
Sprößling Btx doch mit der gebühren- 



Bild 2: Horst Herwig: Steigerungsrate von 80% 
im nächsten Jahr 


den Pflege bedacht wird. Anläßlich der 
Vorarbeiten zu diesem Bericht hatte ich 
Gelegenheit, in einem Gespräch mit 
Mitarbeitern des Fernmeldeamtes Kas¬ 
sel das Thema Bildschirmtext aus ei¬ 
nem anderen Blickwinkel zu sehen. 

Zahlreiche, von der Post organisierte 
Informationsveranstaltungen sollen 
potentielle Kundenkreise für das doch 
recht junge Kommunikationsmedium 
begeistern; so sind Horst Herwig und 
seine Kollegen mehrmals wöchentlich 
auf Tour, um interessierten Handwer¬ 
kern, Ärzten und Anwälten die Vorzü¬ 
ge von Btx näherzubringen. Auch 
Schulbesuche stehen auf dem Tages¬ 
plan; diesbezügliche Aktivitäten sind 
nur bislang vom Engagement der Leh¬ 
rer abhängig. Und hier liegen auch 
schon die Schwierigkeiten in der Ver¬ 
breitung des Systems Bildschirmtext: 
zwar kann die Post die kommerziellen 
Interessenten gezielt ansprechen; Otto 
Normalverbraucher (Sie und ich), der 
eigentlich der Hauptanwender von Btx 
sein sollte, ist auf diese Weise nicht zu 
erreichen. 

Vielmehr zeigt sich eine gewisse Hilf¬ 
losigkeit, diese Zielgruppe auszuma¬ 
chen, die zudem durch unzureichende 
Aufklärung diesem neuen System noch 
reserviert gegenübersteht. Dennoch 
verzeichnet Horst Herwig eine stetig 
wachsende Zahl an Btx-Anbietem und 
abgerufenen Seiten. Wurden am Jah- 


Bildschirmtext 

Statistik 


Stand 

08. 11.87 

31 . 10. 87 

Anschlüsse 

Anbieter 

Leitseiten 

83 110 

3 425 

4 927 

88 160 

3 421 

4 906 

Externe Rechner 
Anbieter mit ER 

256 

1 015 

255 

1 013 

Anbieter mit GBG 
Einträge in GBG 

1 003 
115 670 

998 
114 827 

Btx-Seiten 

610 361 

608 995 

Anrufe ab Monatsbeg. 

542 031 

2203 437 


Anschlüsse je BKZ # 
0 Jahreswerte 1 Erläuterungen 9 
_ 10444a 

uhih cmm 


Bild 3: beeindruckender Zuwachs an Anrufen 
gegenüber ca. 1 Mio in 1986... 


resende 1983 (Btx-Einführung) 10155 
Anschlüsse, 2740 Anbieter und 
147600 Anrufe im Monatsdurchschnitt 
registriert, so war in diesen Bereichen 
Ende 1984 fast durchgehend eine 
100-prozentige Steigerung zu ver¬ 
zeichnen. Die Zahl der Anrufe stieg 
auch in den folgenden Jahren um nahe¬ 
zu das Doppelte, wobei die Steigerung 
im Jahr ’87 (siehe Bild 3) nach Herwigs 
Ansicht auf die Einführung des Btx-fä- 
higen MULTITEL zurückzuführen ist, 
welches von der Post, die sich bislang 
aus dem Endgerätemarkt herausgehal¬ 
ten hatte, auf der Basis eines monatli¬ 
chen Leihbetrages an interessierte Btx- 
Kunden ausgegeben wird. 

Auch für 1988 wird ein Plus an Anru¬ 
fen von mindestens achtzig Prozent er¬ 
wartet; in dieser Schätzung spielen die 
innovationsfreudigen Homecomputer- 
Besitzer (Commodore hat für den C 64 
schon über 10000 Btx-Module ver¬ 
kauft, Schneider wird folgen) mit Si¬ 
cherheit eine gewichtige Rolle. 


Ausblick 


Btx ist, um es zu wiederholen, ein um 
wesentliche Funktionen erweiterter 
Telefonapparat. Natürlich hat dieses 
Netz seine Grenzen, die einfach in der 
Art der zu übertragenden Daten liegt. 
Netze, die hauptsächlich kommerziell 
genutzte Daten transportieren, sind na¬ 
türlich schneller und leistungsfähiger, 
aber überproportional teurer. 

Btx stellt der breiten Masse ein Medi¬ 
um zur Informationsbeschaffung und 
-Übermittlung zur Verfügung, welches 
dem Telefon eine Menge voraus hat, 
aber nur unwesentlich teurer ist. Eine 
an einen anderen Btx-Teilnehmer ge¬ 
sandte Bildschirmseite kostet z.B. nur 
0,40 DM und ist dort innerhalb weni¬ 
ger Sekunden verfügbar, während ein 
physikalischer Brief 0,80 DM kostet 
und gelegentlich zwei, mindestens aber 
einen Tag benötigt, um seinen Adres¬ 
saten zu erreichen. 

Speziell für unsere Leserschaft sei 
nochmals die Telesoftware angespro¬ 
chen, die für einen geringen Betrag 
ausgewählte Software zur Verfügung 
stellen wird; ebenso könnte eine 
Dienstleistung der Zukunft die Beant¬ 
wortung Ihrer Leserbriefe über Btx 
sein... 

(me) 
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Auf zu neuen Welten! 

oderein Computer lernt das Telefonieren 

Btx ist wohl das im Augenblick Interessanteste, was man mit dem Telefon und 
einem Computer machen kann. Mit dem Btx-Modui, das in zwei Versionen je 
einmal für die Schneider Computer CPC 464/664 (Version 1) und den CPC 
6128 (Version 2) erschienen ist, steht nun auch den Besitzern dieser Rechner 
die weite Welt des Bildschirmtextes zur Verfügung, und das sogar noch zu ei¬ 
nem überraschend guten Preis-/Leistungsverhältnis. 


Beim Öffnen der Verpackung fällt so¬ 
fort die komplette Ausstattung des je¬ 
weiligen Moduls ins Auge. Zum Gerät 
gehören ein kurzes graues Kabel mit 
sechspoligem DIN-Stecker auf der ei¬ 
nen und DIN-Kupplung auf der ande¬ 
ren Seite, das als Verbindung zwischen 
dem Video- Ausgang des Computers 
und dem Eingang am Decoder dient, 
sowie ein langes schwarzes Kabel, 
ebenfalls mit DIN-Stecker und Kupp¬ 
lung bestückt, welches zwischen dem 
Postmodem und dem Decoder die Da¬ 
tenübertragung übernimmt. 

Der Decoder selbst wird über ein Stück 
Flachbandkabel plus Platinenstecker 
(beim 6128 ist es ein Amphenol¬ 
stecker) an den Erweiterungsport des 
Rechners angeschlossen. 

Das Kabel vom Monitor, welches am 
Video-Ausgang des Rechners einge¬ 
steckt war, wird nun ebenfalls mit dem 
Decoder verbunden. Die jeweiligen 
Verbindungen sind recht leicht herzu¬ 
stellen, da alle Anschlußbuchsen auf 
dem Gehäuse unverwechselbar be¬ 
schriftet sind. Das Modul selbst, das 
unter der Regie der Firma Schneider 


von Siemens gefertigt wird, macht in 
seinem dunkelgrauen Gehäuse einen 
stabilen Eindruck. 

Auch das “Innenleben“ zeugt von gut 
durchdachtem Konzept und professio¬ 
neller Fertigung. Eine sauber geätzte 
Platine, die hochmoderne, integrierte 
Schaltungstechnik beherbergt, rundet 
das Bild über dieses solide gemachte 
Gerät ab. Nach dem Anschließen des 
Decoders und dem Einschalten des 
Rechners meldet dieser sich mit seiner 
normalen Einschaltmeldung, aller¬ 
dings mit dem Hinweis auf einen neu 
hinzugekommenen RSX-Befehl mit 
der Syntax “!BTX“. Solange man die¬ 
sen Befehl nicht eingibt, kann man al¬ 
les das machen, was man sonst mit sei¬ 
nem Computer eben tut, Programme 
eingeben, abarbeiten, etc. 

Hat man sich jedoch dazu entschlossen, 
diesen Befehl einzutippen und mit ei¬ 
nem bestätigendem “RETURN“ abzu¬ 
schließen, so schaltet der Rechner in 
das Titelbild von Btx, in dessen Mitte 
das Lieblingskind der Post prangt, das 
gelbe Telefon. Und nun beginnt das ei¬ 
gentliche Abenteuer. Um in den Genuß 


dieses Datenservices zu kommen, 
drückt man die Tastenkombination 
SHIFT und Fl. 

Damit beginnt der automatische Wähl¬ 
vorgang, der die Verbindung mit der 
Btx-Hauptstelle zustande kommen 
läßt. Danach wird man zuerst nach der 
Teilnehmer-Kennummer sowie dem 
Passwort gefragt. Dieses bekommt 
man dann zugeteilt, wenn man das dem 
Paket beiliegende Antragsformular 
ordnungsgemäß ausgefüllt und an die 
jeweilige Postdienststelle zugesandt 
hat. Allerdings heißt es bei der Pass¬ 
worteingabe aufpassen. Ist man kein 
schreibmaschinenerprobter Dauertip¬ 
per, so sollte man bei der Eingabe des 
Passwortes auf korrektes Eintippen 
achten, denn das Passwort erscheint 
nicht als Klartext auf dem Bildschirm, 
um es vor neugierigen Blicken Dritter 
zu verbergen. 

Hat man es geschafft, das Passwort 
zweimal verkehrt einzutippen, so un¬ 
terbricht das Modul die Verbindung 
mit der Hauptstelle, und man darf die 
ganze Prozedur von oben wiederholen. 
Ist das Passwort insgesamt neunmal 
pro Tag verkehrt eingegeben worden, 
wird es noch ärger. Dann ist es nämlich 
überhaupt nicht mehr möglich. Btx an¬ 
zuwählen, weil die Post hier eine Un¬ 
gesetzlichkeit wittert und die Verbin¬ 
dung automatisch kappt. Hat man je¬ 
doch sein Passwort beantragt und nach 
einiger Zeit auch zugeteilt bekommen, 
dieses dann zu guter Letzt auch richtig 
eingegeben, so erscheint nun ein Aus¬ 
wahlmenü, mit dem man u.a. das An¬ 
bieterverzeichnis einsehen, Informa¬ 
tionen über Btx selbst abrufen und so¬ 
gar Testseiten einblenden kann, mit de¬ 
ren Hilfe die Bild- und Farbschärfe des 
eigenen Monitors oder Fernsehers ein¬ 
zustellen ist. 

Um es gleich vorwegzunehmen: die 
Übertragungsrate von Btx ist nicht son¬ 
derlich hoch, und somit kann es 
manchmal etwas dauern, bis der jewei¬ 
lige Menüpunkt auf dem Bildschirm er¬ 
scheint. (Die Meldung 'Seite wird auf- 
gebaut’ wird schon nach kurzer Zeit zu 
einem untrüglichen Beweis dafür, daß 
man es tatsächlich mit Btx zu tun hat.) 
Grundsätzlich ist noch eins zu sagen, 
jeder, der sich mit Btx beschäftigen 
will, sei es geschäftlich oder privat, 
und sich dazu dieses relativ preiswerte 
System anschafft, ohne jedoch eine ge¬ 
wisse Computererfahrung zu haben, 
sollte vor seinen ernsten Absichten erst 
einmal etwas Zeit in eine Probier-, 
Studier- und Spielphase opfern, um 
sich mit der ganzen Thematik vertraut 
zu machen. Das heißt, erst einmal die 
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verschiedenen Möglichkeiten des Sy¬ 
stems, die man auf den ersten Menüsei¬ 
ten kennenlemt, ausprobieren, auch 
wenn man keinen direkten Nutzen dar¬ 
aus zieht. Dadurch wird die Bedienbar¬ 
keit von Btx wesentlich leichter, denn 
das Begleitheft (Handbuch wäre über¬ 
trieben, allerdings ist dies der einzige 
negative Aspekt in der Lieferung) ist 
zwar verständlich, jedoch viel zu 
knapp. 

Deshalb sollte man sich die Belegun¬ 
gen der Funktionstasten mit Hilfe von 
praktischen Übungen nach und nach 
merken, es erleichtert das spätere rich¬ 
tige Arbeiten mit Btx ungemein. 


Die Funktionen des Moduls 


Hier nun einige wichtige Tastenfunk¬ 
tionen des Rechners: Die Punkttaste im 
Funktionstastenfeld wird mit einem 
Stern belegt. Dieses Zeichen hat 
eine Steuerfunktion und wird vor den 
Eingaben vorangestellt. Die kleine 
Enter-Taste wird mit dem Gatterzei¬ 
chen ’ # ’ belegt und behält ihre Bestä¬ 
tigungsfunktion wie bei ’RETURN’ 
oder ’ENTER’. Mit diesen beiden Ta¬ 
sten sind verschiedene Eingaben mög¬ 
lich, die sich in ihrer Auswirkung un¬ 
terscheiden. So wählt man z.B. mit 
’*010#’ die Seite 10 an, mit ’*#’ 
kann man fünf Seiten zurückblättern 
und es sind noch einige andere Funk¬ 
tionen enthalten, die im Begleitheft be¬ 
schrieben sind. 

Die Funktionstasten F0, Fl, F4 bieten 
Sonderfiinktionen für die angewählte 
Btx-Seite, u.a. ist es möglich, mit der 
Taste F4 die Schriftgröße und die Far¬ 
ben zu ändern oder das Blinken ein- 
bzw. auszuschalten. Fl und F4 werden 
in Verbindung mit der SHIFT-Taste 
zur An wähl von Btx (Fl) oder Abwahl 


(F4) benutzt. Die Taste F3 beinhaltet 
im Verbund mit anderen Tasten einige 
Sonderfunktionen. Mit F3 und A wird 
der ASCII-Terminal-Modus einge¬ 
schaltet, der mit 80 Zeichen pro Zeile 
arbeitet. In diesem Modus ist der Da¬ 
tenverkehr mit DATEX-P möglich. 
Der Btx-Modus ist dabei ausgeschaltet, 
läßt sich jedoch mit nochmaligem 
Drücken von F3-A wieder einschalten. 
Mit F3 und C können Btx-Seiten abge¬ 
speichert werden, mit F3 und D sind 
die im RAM-Puffer abgespeicherten 
Seiten einzusehen. Betätigt man F3 und 
I, so erscheint das Inhaltsverzeichnis 
der Diskette auf dem Bildschirm, F3 
und K schaltet zwischen ASCII und 
deutscher Tastaturbelegung um. F3-L 
lädt eine Btx-Seite von Kassette oder 
Diskette, F3 und Q schaltet den Rech¬ 
ner ins Originalbetriebssystem um und 
beendet die Verbindung. 

Falls man keinen Farbmonitor (oder 
Fernseher) zur Verfügung hat, schaltet 
man mit den Tasten F3-S auf 
Schwarz/Weiß-Darstellung für Grün- 
monitore um. Mit F3 und X lassen sich 
Textseiten entweder in ein File spei¬ 
chern oder auf einen EPSON- kompati¬ 
blen Drucker ausgeben. 

Die Taste F (keine Funktionstaste) ist 
dazu da, Textinformationen wahlweise 
auf Diskette oder Kassette abzuspei- 
chem (Laden mit F3-L). Kommen wir 
nun zu einem Teil, der interessant für 
diejenigen ist, die gerne Programme 
aus Computerheften haben möchten, 
jedoch keinerlei Lust verspüren, diese 
abzutippen. Da ist Btx eine ideale 
Fundgrube, denn es gibt ja die Tele- 
software. Hier werden über eine Ver¬ 
triebsgesellschaft Programme angebo- 
ten, die man mit der Tastenkombina¬ 
tion F3 und T und der nachfolgenden 
Anwahl der gewünschten Nummer ge¬ 
gen Gebühr abrufen kann. Diese Pro¬ 
gramme lassen sich auf Diskette (beim 


CPC 464 auch auf Kassette) speichern 
und später wieder laden und starten. 

Eine wichtige Sache soll noch erwähnt 
werden. Innerhalb von Btx ist es mög¬ 
lich, sogenannte Makro- Dateien anzu¬ 
legen, d.h. man kann bestimmte Be¬ 
fehlsfolgen hintereinander setzen, z.B. 
das An wählen einer Seite und die nach¬ 
folgende Speicherung eines Bildes. 
Dazu dient die Tastenfolge F3-L. Mit 
F3-M kann dieses Makro dann aufge¬ 
rufen werden und die Befehlsfolgen 
werden abgearbeitet. 

Wie man sieht, ist allein mit dem Rech¬ 
ner und dem Modul schon eine ganze 
Menge anzufangen. Mit einem Preis 
von ca. 399,- DM ist das Modul auch 
recht preiswert. Bleiben ’nur’ noch die 
Anschaffungskosten für den Rechner, 
das Modem und die entsprechende Pe¬ 
ripherie. Empfehlenswert ist auf jeden 
Fall das Arbeiten mit einem Laufwerk, 
da das Abspeichern oder Wiederladen 
der über die Telesoftware angeforder¬ 
ten Programme mit dem Kassettenre¬ 
korder eine zeitaufwendige Sache wer¬ 
den kann. CPC 6128-Besitzer sind hier 
eindeutig im Vorteil. Rechnet man al¬ 
les in allem zusammen, so ist die An¬ 
schaffung dieser Btx-Anlage immer 
noch recht preisgünstig. Zusammenge¬ 
faßt kann man sagen, daß derjenige, 
der sich zur Anschaffung des Moduls 
und etwaiger Peripherie-Geräte ent¬ 
schließt, einen guten Griff macht. Btx 
ist, auch wenn einige Verbesserungen 
noch nötig sind, ein interessantes Sy¬ 
stem, das gerade durch Erscheinen die¬ 
ses Moduls einen größeren Anwender¬ 
kreis erreichen kann. Aber wie auch 
beim normalen Arbeiten mit dem Com¬ 
puter gilt: Probieren geht über Studie¬ 
ren. Danach allerdings kann Btx mit 
dem CPC zu einer interessanten Reise 
in die neue Welt der Kommunikation 
werden. 

_ (JB) 



Abb.l: Beide Versionen des CPC-Btx-Moduls. 
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Kiesen & Reimt oHG 
Rechenzentrum 
BBC-Streße 30 

8450 Heneu 



Abb. 2: Eine der vielen Seiten eines Anbieters. 
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Einsteigen ohne 
Probleme Ten 5 

Also sprach die 
Maschine... 


“Leider muß ich Ihnen mitteilen, 
daß Ihr in Heft X abgedrucktes Pro¬ 
gramm nicht funktioniert.“ Solche 
Hiobsbotschaften in Form von Anru¬ 
fen oder Leserbriefen gehören zum 
täglichen Brot des PC International- 
Redakteurs, und in der Tat sorgen 
mitunter Druckfehler oder sonstige 
menschlich-technische Unzuläng¬ 
lichkeiten dafür, daß ein Programm 
nicht in der vorgesehenen Form seine 
Pflicht erfüllt. Aber trotzdem: Sie 
können davon ausgehen, daß alle 
Programme vor dem Abdruck sorg¬ 
fältig geprüft werden und in den mei¬ 
sten Fällen stellt sich dann nach ein¬ 
gehenden Recherchen heraus, daß 
ein simpler Fehler beim Abtippen 
das Programm sabotiert hat. 

Und es gibt wirklich gemeine Fehler¬ 
quellen, die nur sehr schwer zu orten 
sind. Zum Beispiel meldet der BASIC- 
Interpreter im allgemeinen keinen 
“Error“, wenn in einem Variablenna¬ 
men der Kleinbuchstabe “1“ mit der 
Ziffer “ 1 “ verwechselt wurde. Er regi¬ 
striert hier einfach nur eine neue Vari¬ 
able, die wie üblich mit dem Wert 0 
vorbelegt wird. Natürlich kann das al¬ 
lerlei merkwürdige Folgen haben, 
doch im Listing ist dieser Fehler nahe¬ 
zu unsichtbar. 


Peripherie - da weiß man nie... 


Doch nicht nur Tippfehler machen un¬ 
seren Lesern das Leben schwer. Auch 
diverse Peripheriegeräte reagieren oft 
sehr eigenwillig auf die Wünsche des 
Programmierers bzw. Anwenders, wo¬ 
bei insbesondere der enorme Erfin- 
dungsreichtum der Druckerhersteller 


immer wieder Freude auslöst. Wenn 
Sie z.B. Grafiken (Hardcopies vom 
Bildschirm) ausdrucken wollen, sollten 
Sie sich beim Kauf des Gerätes unbe¬ 
dingt davon überzeugen, daß es Epson- 
kompatible Steuersequenzen versteht, 
da sich die meisten Programme auf die¬ 
sen Quasi-Standard beziehen. 

Gerade bei preisgünstigen Druckern 
findet man mitunter absolut exotische 
Grafikmodi, die zu keiner Software 
passen (oft sind noch nicht einmal ver¬ 
schiedene Geräte eines Herstellers un¬ 
tereinander kompatibel!), und wer ei¬ 
nen Kalaschnikov-Drucker aus russi¬ 
schen Armeebeständen sein Eigen 
nennt, muß wohl oder übel mit mas¬ 
siven Anpassungsproblemen rechnen. 

Weiterhin gibt es immer wieder Pro¬ 
bleme mit umfangreichen Listings, die 
aus mehreren Teilen bestehen, also 
z.B. einem BASIC-Lader, der ein Ma¬ 
schinenprogramm erzeugt, und einem 
BASIC-Hauptprogramm, das den Ma¬ 
schinencode nachlädt. Diese Folge 
wird sich deshalb anhand eines kleinen 
Beispiels damit beschäftigen, wie sol¬ 
che “Zwitter“ aufgebaut sind und wie 
ihre Teile Zusammenarbeiten. Zu die¬ 
sem Zweck kommen wir noch einmal 
auf das Maschinenprogramm zurück, 
das bereits in der letzten Folge vorge¬ 
stellt wurde. Falls Sie es noch nicht auf 
Datenträger zur Verfügung haben, tip¬ 
pen Sie zunächst das folgende Listing 
ab: 

10 invers = &A500:Summe=0 
20 MEMORY invers-1 30F0R adr=invers 
TO invers+12 

40 READ a$: Byte=VAL( "&"+a$) 

50 Summe=Summe+Byte 
60 P0KE adr,Byte 
70 NEXT adr 

80 IF sumrr.e < > 1359THEN PRINT 
“DATAFEHLER“:END 


90 DATA 21,00,C0,7E,2F,77,20,20 
100 DATA FA, 24,20, F7, C9 

Hier handelt es sich also um einen BA¬ 
SIC-Lader, der nur die Aufgabe hat, 
ein Maschinenprogramm im Speicher 
abzulegen — nicht mehr und nicht we¬ 
niger. Nach einmaligem Durchlauf des 
Laders kann das Maschinenprogramm 
mit dem Kommando CALL &A500 
aufgerufen werden und invertiert wie 
bereits in der letzten Folge beschrieben 
den gesamten Bildschirm. 


Prüfsummen - absolut sicher? 


Bei genauerer Betrachtung des Listings 
fallt auf, daß hier aus allen in den 
DATA-Zeilen abgelegten Maschinen¬ 
befehlen eine Prüfsumme gebildet 
wird. Durch Vergleich mit dem Soll¬ 
wert in Zeile 80 wird ein eventueller 
Fehler festgestellt und gegebenenfalls 
angezeigt, wie Sie sofort feststellen 
können, wenn Sie den letzten Code in 
Zeile 100 von C9 in C8 ändern. Solch 
ein Prüfsummenfehler ist ein sicheres 
Zeichen dafür, daß das Maschinenpro¬ 
gramm ’defekt’ und nicht lauffähig ist, 
auf einen Aufruf verzichtet man also 
besser. 

Doch glauben Sie ja nicht, daß mit ei¬ 
ner solchen Prüfsumme grundsätzlich 
alle Tippfehler entdeckt werden! Vor 
allem bei einem solch primitiven Ver¬ 
fahren wie in unserem Fall bleibt eini¬ 
ges unerkannt. Werden zum Beispiel 
zwei Werte vertauscht, so ändert das an 
der Summe nichts, aber eine Menge am 
Verhalten des Maschinenprogramms! 
Etwas raffiniertere ’ Checksummer’ 
(wie z.B. auch der, dem Sie die Prüf¬ 
summen in den eckigen Klammern in 
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Einzelheft-Bestellung 

Nachfolgende Ausgaben von Schneider CPC International sowie Sonder¬ 
hefte sind noch vorrätig und können über den DMV Verlag bezogen 
werden 


Bei.einem Bestellwert von mindestens 15,- DM werden keine Porto- 
und Versandgebühren erhoben; bei einem Bestellwert unter 15,- DM 
werden 3,- DM Porto/Verpackung berechnet (Ausland 5,- DM 
Porto/Verpackung). Lieferung nur gegen Vorkasse (V.-Scheck) 
Bestellung Ausgaben (bitte ankreuzen): 

□ 1/86 6. - DM 


□ 2/86 

6,- 

DM 


öl 3/86 

6, - 

DM 


□ 4/86 

6, - 

DM 


□ 5/86 

6, - 

DM 


□ 6/86 

6, - 

DM 


□ 7/86 

6.- 

DM 



A ii fMil 


□ 9/86 

6, - 

DM 


H10/86 

6,- 

DM 


□ 11/86 

6,- 

DM 


□ 12/86 

6,- 

DM 


□ 1/87 

6, - 

DM 


□ 2/87 

6, - 

DM 


□ 3/87 

6, - 

DM 


□ 4/87 

6,- 

DM 


□ 5/87 

6,- 

DM 


□ 6/87 

6,- 

DM 


□ 7/87 

6, - 

DM 


□ 8/87 

6,- 

DM 


□ 9/87 

6, - 

DM 


□ 10/87 

6,- 

DM 


□ 11/87 

6, - 

DM 


□ 12/87 

6, - 

DM 

309 

□ Sonderheft 3/86 

14,— 

DM 

310 

□ Sonderheft 4/87 

14,- 

DM 

311 

□ Sonderheft 5/87 

14,- 

DM 

312 

□ Sonderheft 6/88 

14,- 

DM 


Porto/Verpackung (nur bei einem Besteuert unter 1 5 - DM) DM 


Gesamtbetrag_ DM 

n Einen Verrechnungsscheck in Höhe des Rechnungsbetrages habe ich 
beigefügt 


Datum Unterschrift (bei Minderjährigen des gesetzl Vertreters) 


»Databox Einzelbestellung« 


Ausgabe 

CPC 

Kassette 

CPC 

3" Diskette 

Joyce 

3" Diskette 

PC 1512 

51/4" Diskette 
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— 

— 

— 

2/86 
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□ 24, - DM 

— 

— 
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— 

— 

4/86 

□ 14, - DM 
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— 

— 
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— 
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— 

7/86 
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— 
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□ 14,- DM 
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— 
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— 
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— 
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12/86 

□ 14,- DM 
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— 
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5/87 

□ 14,- DM 
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6/87 
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□ 24, - DM 

□ 24. - DM 
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Einsteiger—i 


den PC International-Listings verdan¬ 
ken) schließen zwar solche Unglücke 
weitgehend aus, aber trotzdem bleibt 
folgende Tatsache bestehen: In Prüf¬ 
summen werden Informationen zusam¬ 
mengefaßt; es existieren deshalb im¬ 
mer mehrere unterschiedliche DATA- 
bzw. Programmzeilen, die die gleiche 
Prüfsumme erzeugen. Absolute Si¬ 
cherheit ist also nicht garantiert, nur 
die Fehlerwahrscheinlichkeit wird we¬ 
sentlich verringert. 

Außerdem gibt es noch einen weiteren 
gemeinen Fehler, der regelmäßig unse¬ 
ren ’heißen Draht’ zum Glühen bringt 
und im allgemeinen dafür sorgt, daß 
der BASIC-Lader gar nicht mehr dazu 
kommt, eine Prüfsumme zu testen. Er¬ 
setzen Sie einfach die Null in dem Code 
CO in Zeile 90 durch den Großbuchsta¬ 
ben “O“ (ein optisch sehr unauffälliger 
Fehler) und starten Sie den Lader neu. 
Wie Sie sehen werden, bricht der 
Rechner sofort mit einem “Type Mis- 
match“ in Zeile 40 ab. Den Fehler in 
Zeile 40 können Sie allerdings lange 
suchen — was ist passiert? 


Dem Fehler auf der Spur 

Doch bevor wir das klären, merken Sie 
sich bitte folgende goldene Regel für 
Ihre weitere Computer-Laufbahn: 
Fehler werden vom BASIC immer in 
der Zeile angezeigt, in der sie sich be¬ 
merkbar machen, befinden können sie 
sich jedoch ganz woanders! 

Erinnern wir uns an die letzte Folge: 
Hexadezimale Codes (wie die in den 
DATA-Zeilen 90-100) stellen eine Art 
Kurzschreibweise für Bitmuster, also 
Folgen aus Nullen und Einsen dar. Da¬ 
bei finden die Ziffern 0..9 und die 
Buchstaben A..F Verwendung. Ein 
großes “O“ kann also niemals Bestand¬ 


teil einer hexadezimalen Zahl sein. In 
den DATA-Zeilen stört das jedoch 
überhaupt nicht, denn DAT As können 
ja im Prinzip aus beliebigen Zeichen¬ 
ketten bestehen. Nur wenn der Rechner 
in Zeile 40 diesen 'unmöglichen’ Code 
in einen konkreten Zahlenwert umwan¬ 
deln will, gibt es Probleme: Aus dem 
“O“ schließt der CPC messerscharf, 
daß es sich hier wohl nicht um einen 
hexadezimalen Code, sondern um eine 
ganz normale Zeichenkette (String) 
handelt. Das Resultat kennen Sie: 
“Falscher Datentyp“. 

Solch ein Fehler ist in einem langen Li- 
sting natürlich schwer zu finden. Der 
Fachmann hilft sich hier, indem er kur¬ 
zerhand in die Hauptschleife einen 
Zähler einbaut, also z.B. mit der Zeile 
35 i=i+l 

Nach dem Abbruch kann man dann mit 
PRINT i erfragen, welcher DATA- 
Wert das Problem erzeugt hat. 

In der Praxis können nun BASIC-La- 
derlistings sehr verschieden aussehen. 
Manche benutzen z.B. abweichende 
Prüfsummenverfahren, verzichten auf 
die Kommas zwischen den hexadezi¬ 
malen Werten oder verwenden Dezi¬ 
malzahlen. Aber das Prinzip bleibt im¬ 
mer gleich, und wenn Sie unser kleines 
Beispiel komplett verstanden haben, 
sollte es Ihnen im 'Ernstfall’ schon 
leichter fallen, Fehler zu finden und 
auszumerzen. 


Kleine Ursache 
— große Wirkung! 


Kommen wir jetzt aber zu einem weite¬ 
ren Fehler, der im Zusammenhang mit 
Maschinenprogrammen häufig Kum¬ 
mer bereitet: BASIC-Lader treten ja 
meist als Bestandteil umfangreicher 
BASIC-Programme auf, in denen das 


erzeugte Maschinenprogramm even¬ 
tuell mehrmals aufgerufen wird. In un¬ 
serem Fall wäre dann im Listing an die¬ 
sen Stellen der Befehl CALL &A500 
zu finden. Um nun ein Programm gut 
lesbar zu gestalten, wird häufig die 
Startadresse in einer Variablen abge¬ 
legt. Auch unser kleines Beispiel macht 
von dieser Methode Gebrauch (siehe 
Zeile 10), so daß das Maschinenpro¬ 
gramm mit dem aussagekräftigen 
Kommando ’CALL invers’ aufgerufen 
werden kann. 

Doch ein kurzer Versuch zeigt, daß 
sich hier schon ein kleiner Tippfehler 
verhängnisvoll auswirkt: Speichern Sie 
das Programm ab, und geben Sie dann 

CALI imvers 

ein — es passiert sehr leicht, daß man 
auf der Tastatur danebenhaut und das 
’m’ anstatt ’n’ erwischt. Wie Sie sehen 
werden, kommt Ihr CPC dadurch zur 
Überzeugung, daß das alles keinen 
Zweck mehr hat und man am besten 
noch einmal ganz von vorne beginnt: 
Er führt einen sogenannten ’Reset’ aus, 
löscht alle Daten und Programme und 
präsentiert die Einschaltmeldung. Wie 
ist das nun zu erklären? 

Sehr einfach: Da die 'falsche’ Variable 
imvers ja noch nicht definiert ist, wird 
ihr kurzerhand der Wert 0 zugeordnet, 
und der CALL-Befehl ruft ein Maschi¬ 
nenprogramm auf, das an der Speicher¬ 
stelle 0 beginnt. Dabei handelt es sich 
aber unglücklicherweise um eine Be¬ 
triebssystem-Routine, die den Rechner 
in den Einschaltzustand zurückver¬ 
setzt. Mit dem Kommando CALL 0 
können Sie sich sofort von dieser Tat¬ 
sache überzeugen, es hat die gleiche 
Wirkung. Hier wird noch einmal deut¬ 
lich, wie wichtig es ist, die Mahnung 
aus der letzten Folge konsequent zu be¬ 
achten: Vor dem Programmstart ab- 
speichem! 


QUALITÄT für JOYCE u. IBM-PC kompatible 
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Abhilfe mit Trick C9 


Allerdings gibt es einen kleinen, aber 
sehr wirksamen Trick, mit dem man 
'Abstürzen’ dieser Art Vorbeugen 
kann. Wie Sie bereits in der letzten Fol¬ 
ge erfahren haben, repräsentiert der 
hexadezimale Code C9 einen Maschi¬ 
nenbefehl, der ähnlich wie der BASIC- 
Befehl RETURN einen sofortigen 
Rücksprang zum aufrufenden Pro¬ 
gramm bewirkt. Setzten wir ihn einmal 
versuchsweise durch 
POKE 0,&C9 

an die Speicherstelle 0, und in der Tat 
meldet sich der CPC jetzt nach einem 
(versehentlichen) CALL 0 brav mit 
’Ready’ zurück, ohne irgendwelchen 
Unfug anzustellen. Der Reset mit der 
Tastenkombination CTRL-SHIFT- 
ESC läßt sich allerdings auf diese Wei¬ 
se nicht sperren. Woran das liegt, wird 
uns demnächst noch beschäftigen. 

Und damit werden wir das nahezu un¬ 
erschöpfliche Kapitel ’Fehler-analyse’ 
zunächst einmal abschließen und uns 
einem Nachteil aller BASIC-Lader zu¬ 
wenden, der bereits in der letzten Folge 
angedeutet wurde: Sie nehmen einigen 
Platz im Speicher ein — meistens we¬ 
sentlich mehr als das Maschinenpro¬ 
gramm, das sie erzeugen — und sind 
nach der Erfüllung ihrer Aufgabe, also 
nach einmaligem Durchlauf, schlicht- 
weg überflüssig. 

Bei so kurzen Programmen wie in un¬ 
serem Fall spielt das zwar keine beson¬ 
dere Rolle, aber lange BASIC-Lader 
mit hundert und mehr DATA-Zeilen, 
wie sie in der Praxis oft Vorkommen, 
blockieren schon allerhand Speicher¬ 
platz, der dann für andere Zwecke 
fehlt. Deshalb gehen Programmierer 


meistens so vor, daß sie den erzeugten 
Maschinencode auf Kassette bzw. Dis¬ 
kette abspeichem. Ist das Maschinen¬ 
programm erst einmal auf Datenträger 
vorhanden, so kann man es direkt in 
den Speicher laden, womit die zeit- und 
platzraubende Umwandlung der DA- 
TAs in den Maschinencode entfällt. 

Damit taucht die Frage auf, warum 
dann eigentlich BASIC-Lader benutzt 
werden. Doch dafür gibt es einen einfa¬ 
chen und einleuchtenden Grund: Sie 
stellen eine Methode dar, Maschinen¬ 
programme platzsparend als Listing 
abzudrucken und jedermann zugäng¬ 
lich zu machen. Zwar gibt es auch die 
Möglichkeit, den sogenannten ’ Assem- 
bler-Quellcode’ zu veröffentlichen 
(das ist eine symbolische Darstellung 
der Maschinenbefehle durch Wortkür¬ 
zel), doch damit würden wir von unse¬ 
ren Lesern verlangen , daß sie über ein 
entsprechendes Übersetzungspro¬ 
gramm ('Assembler’) verfügen und da¬ 
mit auch umgehen können. Weiterhin 
würde diese Art der Darstellung we¬ 
sentlich mehr von dem oft schon sehr 
knappen Platz in PC International be¬ 
anspruchen. Das Abtippen vieler 
DATA-Zeilen stellt sicherlich keine 
besonders anregende Beschäftigung 
dar, aber eine bessere Möglichkeit (ab¬ 
gesehen von der DATABOX) gibt es 
leider nicht. 


Maschinenprogramme 

speichern... 


Doch wenden wir uns jetzt der Frage 
zu, wie man eigentlich Maschinenpro¬ 
gramme abspeichert und wieder lädt. 
Im Prinzip geht das genauso wie bei 


BASIC-Programmen, also mit den Be¬ 
fehlen SAVE und LOAD, aber der 
Rechner braucht in diesem Fall einige 
zusätzliche Informationen, die man als 
Parameter an das SAVE-Kommando 
anhängen muß. Gehen wir sie der Rei¬ 
he nach durch: 

1. Der Dateiname 

Das funktioniert genau wie bei BASIC- 
Programmen und braucht keine weite¬ 
ren Erläuterungen. 

2. Die Dateikennung 

Der nächste Parameter ist einfach der 
Buchstabe ’b’, wodurch der CPC er¬ 
fahrt, daß es sich um eine Binärdatei 
handelt. Er hängt dann bei Disketten¬ 
betrieb automatisch die Endung .BIN 
an den Dateinamen an, soweit Sie keine 
andere Endung vorgeben. Auch bei 
Kassettenbetrieb ist es ratsam, diese 
Standardkennzeichnung für Maschi¬ 
nenprogramme zu verwenden, obwohl 
sie nicht zwingend vorgeschrieben ist. 

3. Die Startadresse 

Bei BASIC-Programmen weiß der 
CPC selbst, wo sie im Speicher begin¬ 
nen, aber bei Maschinenprogrammen 
muß man ihm das explizit mitteilen. 
Dabei spielt es keine Rolle, ob die An¬ 
gabe dezimal oder hexadezimal er¬ 
folgt. 

4. Die Länge 

Der letzte Parameter muß die genaue 
Anzahl von Speicherstellen (Bytes) an¬ 
geben, die das Maschinenprogramm 
einnimmt. 

Und in der Praxis sieht das dann so aus: 
110 SAVE “INVERS.BIN",b,&A500,13 
Ergänzen Sie diese Zeile in unserem 
Beispielprogramm und starten Sie es 
noch einmal. Daraufhin wird also nicht 
nur der Maschinencode im Speicher 
abgelegt, sondern auch gleich automa¬ 
tisch auf Datenträger geschrieben, was 
bei Kassettenbetrieb natürlich die Auf¬ 
forderung “Press REC and PLAY...“ 
zur Folge hat. Die Startadresse ist 
durch die Zeile 10 vorgegeben, und die 
Länge erhält man einfach durch das 
Abzählen der hexadezimalen Codes in 
den Zeilen 90-100. 


... und wieder laden! 


Liegt nun das Maschinenprogramm als 
Datei auf Datenträger vor, stellt sich 
natürlich die Frage, wie man es wieder 
in den Speicher bekommt. Doch das ist 
überhaupt kein Problem: Das Laden 
wird genau wie bei BASIC-Program¬ 
men durch das Kommando LOAD 
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“Dateiname“ erledigt. Nur eines ist zu¬ 
sätzlich zu beachten: Genau wie beim 
BASIC-Lader muß durch einen ent¬ 
sprechenden MEMORY-Befehl dafür 
gesorgt werden, daß das Maschinen¬ 
programm in einem geschützten Spei¬ 
cherbereich liegt! Um die Startadresse 
und die Länge des Maschinencodes 
brauchen wir uns dagegen beim Laden 
nicht weiter zu kümmern; diese Werte 
hat sich der CPC nämlich praktischer¬ 
weise auf Kassette bzw. Diskette ge¬ 
merkt. 

Kommen wir jetzt gleich zu einem kon¬ 
kreten Beispiel: Angenommen, der In- 
vers-Maschinencode liegt bereits auf 
Datenträger vor, so soll jetzt ein klei¬ 
nes Programm geschrieben werden, 
das den Maschinencode selbsttätig (!) 
in den Speicher holt und für irgendei¬ 
nen Zweck verwendet, also etwa so: 

10 REM Maschinencode laden 
20 invers = &A500 
30 MEMORY invers-1 
40 LOAD “INVERS.BIN“ 

50 REM Hauptprogramm 
60 FOR i = 1 to 10 
70 CALL Invers 
80 NEXT i 

Die Zeilen 10-40 stellen dabei eine Art 
’BASIC-Lader’ besonderer Art dar: 
Sie erzeugen nicht mehr den Maschi¬ 
nencode aus DATA-Zeilen, sondern 
holen ihn ohne Umschweife direkt von 
Kassette oder Diskette. Natürlich muß 
die Datei “INVERS.BIN“ für unser 
kleines Programm erreichbar sein, 
d.h., die richtige Diskette muß sich im 
Laufwerk befinden bzw. die Kassette 
zu der entsprechenden Stelle zurückge¬ 
spult werden. Die Zeilen 50-80 sollen 
nur demonstrieren, daß unser Maschi¬ 


nenprogramm jetzt wirklich funktions¬ 
fähig im Speicher angekommen ist. 


Selbst ist der Computer... 

Wenn Sie jetzt das obige Programm 
unter dem Namen “INVTEST“ eben¬ 
falls auf Diskette abspeichem, so kön¬ 
nen Sie durch einen Versuch feststel¬ 
len, daß sich der ganze Ablauf ohne 
Probleme mit RUN “INVTEST“ di¬ 
rekt starten läßt, ohne daß Sie sich noch 
um das Maschinenprogramm Gedan¬ 
ken machen müssen: Es wird wie ge¬ 
fordert selbsttätig dazugeladen. Nur 
bei Kassettenbetrieb ist es etwas kom¬ 
plizierter: Hier muß natürlich dafür ge¬ 
sorgt werden, daß sich der Maschinen¬ 
code INVERS.BIN direkt hinter dem 
Hauptprogramm INVTEST auf Band 
befindet — logisch, oder? 

Weiterhin dürfte dabei noch stören, 
daß nach dem Start des Hauptpro¬ 
gramms mit RUN “INVTEST“ (oder 
RUN ““) der Rechner in Zeile 40 den 
Ablauf unterbricht, um noch einmal 
das übliche “Press PLAY...“ auf dem 
Bildschirm anzumahnen. 

Das ist natürlich reichlich unnötig, da 
die PLAY-Taste ohnehin schon ge¬ 
drückt ist. Die Abfrage kann allerdings 
vermieden werden, indem Sie in der 
Ladeanweisung vor den Dateinamen 
ein Ausrufezeichen setzen, 

40 LOAD“!INVERS.BIN" _ 
dann läuft auch bei Kassettenbetrieb 
der ganze Prozeß vollautomatisch ab. 
Ergänzend wäre jetzt nur noch zu ver¬ 
merken, daß man nicht nur Maschinen¬ 
programme, sondern auch beliebige 


Speicherbereiche in eine Binärdatei 
verwandeln kann — wie zum Beispiel 
den Bildschirminhalt, der ab Adresse 
&C000 beginnt und eine Länge von 16 
KByte hat, also insgesamt 16384 By¬ 
tes. Das entsprechende Kommando 
lautet z.B. 

SAVE "BILD.BIN",b,&C000,16384 

Geladen wird der Bildschirminhalt 
dann einfach mit LOAD “BILD.BIN“. 
Auf ein MEMORY-Kommando kann 
man in diesem Fall verzichten, da der 
Bildschirmspeicher ohnehin einen ge¬ 
schützten Bereich darstellt. Probleme 
macht nur die Eigenart des CPC, bei ei¬ 
nem Scrollen des Bildschirms den Auf¬ 
bau des Speichers so zu verändern, daß 
das Bild nach dem Laden eventuell sehr 
verschoben erscheint. Ein MODE-Be- 
fehl setzt den Bildschirm jedoch immer 
in einen genau definierten Zustand. 
Das Bild wird also garantiert richtig 
dargestellt, wenn Sie dafür sorgen, daß 
zwischen dem letzten MODE-Kom- 
mando und dem Abspeichem der Bild¬ 
schirminhalt nicht nach oben oder un¬ 
ten rollt, und Sie weiterhin vor dem La¬ 
den des Bildes einen erneuten MODE- 
Befehl eingeben. 

Übrigens ist es auf diese Weise auch 
möglich, ein Bild in einem falschen 
MODE wiederzugeben, was mitunter 
recht interessante Verfremdungen er¬ 
gibt. 

Und damit genug für dieses Mal — die 
nächste Folge wird Sie dann mit mit der 
Speicherverwaltung des CPC vertraut 
machen. 

(Matthias Uphoff) 


Maßgeschneiderte Anwendungen mit... 


dem universellen 


DELTA DM 299 

• Alle kommerziellen Rechenfunktionen 

• Problemlose Bedienung, Dateiaufbau im Dialog 

• Bis zu 80000 Datensätze und 2000 Zeichen je Satz 

• Umfangreiche Sortier- und Selektionsmöglichkeiten 

• Komfortable Listenerstellung mit bis zu 4 Summenstufen 

• Automatische oder freie Gestaltung von Bildschirmmasken 

• Hotline Service durch DELTA-Compsoft Deutschland GmbH 


Datenbanksystem 

von 

SchneiderDatä 

Rindermarkt 8 8050Freising 08161-2877 
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Joyce - Hard Disk (ASD Peripherais) 
Machen Sie aus Ihrem Schneider Joyce ... eine 
Buchführungsanlage ... ein Bürosystem ... oder 
wieso schreiben Sie nicht einfach ein Buch? 


3000 Seiten 

können 

auf 10 Mbytes 

gespeichert 

werden! 


• 10 oder 20 MB * erweitertes CP/M Plus und Locosript • mitgeliefeite Hilfs¬ 
programme ermöglichen einfachen Gebrauch • schnelle Zugriffszeit - 85 ms • 
macht aus Ihrem Joyce - Textverarbeitungsprogramm ein leistungsfähiges 
Bürosystem • leicht anzuschließen, ohne Spezialwerkzeuge oder spezielle 
Kenntnisse » 

Einzclinfo anfordem !! M5 N ar j R- s ^ R^J 

. 20 MB Hard Disk 1.998,- DM , 



( Joyce Software 


C Zubehör PC 

Business-Star 

298,- 


B-Iraufwerk 360 kb 

398,- 

Fibu-Star 

298,- 


Aufrüstatz auf 640 kb 

78,- 

Star Mail 

98,- 


Lüfterbaustein 

98,- 

DR Graph, Draw je 

199,- 


Vortex Drive Cand 

1.098,- 

Profirem 

136,- 


TANDON Business 


Fakturem 

78,- 


Card 21 (MB) 

898,- 

Fibuking 

136,- 


Festplatten: Seagate/ Tan- 

Datamat Joyce 

298,- 


don mit Lüfter und Controller: 

Etatgraf 

58,- 


20 MB 

898,- 

Tasword 8000 dtsch. 

148,- 


30 MB 

998,- 

\Joyce-Mailing-System 

189,- J 


^ 40 MB 

1.798,- 


Marconi RB2 
Trackerball 

Präzise Positionierung des Cursors 
im CAD/CAM Bereich sowie in der 
Textverafbeitung ... 

• für alle Schneider PC und IBM- 
Kompatiblen mit Maustreiber. 

198,-- 

• für CPC 464,664, 6128 mit 

Grafikpaket 278,— 

\ ^Händleranfragen erwünscht! j 

r Diskettenlaufwerke > 

Joyce 

• 2x80 Tr. • 1MB • anschluß¬ 
fertig 3,5" 348,- 

51/4" 448,- 

CPC 

» als Zweitlaifwerk für CPC 664 
und 6128 stehen 830 KB zur Ver¬ 
fügung auch 464 

• Anschlußfertig 3" I60K 298,-- 

3,5" 398,— 

V_ 51/4" 448,- > 

^Scanner für PC 

Handy Bryllante-Produkt 

bringt Graphik und Text super¬ 
schnell auf Ihren Bildschirm! 
Auflösung 200 Punkte/Zoll 
Scanbreite 64 mm 
Für IBM PC/XT/AT incl. Interface, 
Software, Graphikpaket und deutsch. 
Handbuch. Für Techniker, Lehrer, 
Werbefachleute, Redakteure ... 

Info+ Systemang. 848,™ DM 


f Arnor Software 

PRO WORT • Textvnurbcitung mit M*ilmcrp 
und RcctaschreibkontraUe • doch. Handbuch 
3" Diskette 6128, Joyce (CP/M+) je 219,- 
Protext fui CPC 464, 664,6128 
3- Diät. 94,- EPROM 124,- 

MAXAM ■ Komplettes 7SK) Entwiddung»- 

sytem ■ As * mblci/D iaassc mblcr/Mon itcr 

3" Disk. CPC 464,664,6128 94,- 

EPROM 124,- 

MAXAM II 6128, Joyce Disk. 239,- 
PROSPELL • RechtschiciheprviftBtg für Loco- 
Script deutsche Version) 70,-- 

Deutsches Handbuch für 
Protext / Maxam (CPC) 19,80 

ROMBO Produkte 

ROMBOX für CPC • ROM-Stcckptatzcr- 
weileiung • 8 ROM Steckplätze • ROM's belegen 
keinen SpcIdiopUiz, snnül ist die ROMBOX die 
ideale Ha/dwareerweiierung fUr Sie • uut deutsch. 
Anlenung • 

CPC 464, 664, 6128 118,- 

V1DI für CPC, Joyce und PC 

• hervorragender Videodagitizer • mit Controller • 
mit deutschem I landbuch • 

CPC 348,- Joyce 378,- 
PC (IBM-Komp.) 448,- 

.. JLMLJ imijd! 

f Joyce - Zubehör ^ 

Farbband Drucker 24.90 

Parallel-Seriell-Schnittstelle 148,- 
B-Laufwerk FD2 498,- 

5 1/4" 1MB Laufwerk 448,- 

Bildschirmfiller 47,- 

Papierführung 28,- 

Etiketten (200 Stk) 16,-- 

10 Disk. 3" CF2 69,- 

10 Disk. 3" 2DD 149,- 

Diskettenbox 3"/40 39.80 

V^jtdlospapier 1000 Blatt 19.80, 


^Hardware PC, 

Zubehör^ 

PC 1512-Typen 

auf Anfrage 

1640 MD/SD 

1.698,- 

1640 MD/DD 

2.198,- 

1640 CD/SD 

2.198,- 

1640 CD/DD 

2.698,- 

1640 MD/HD20 

3.198,- 

1640 CD/HD20 

3.698,- 

ECD/SD 

2.998,- 

ECD/HD20 

4.498,- 

^NF.C P6 (dtsch.) 

1398,--^ 


f s'EC P6 color (dtsch.) 

1.698, A 

NEC P7 (dtsch.) 

1.698,- 

StarNL 10/NG 10 

598,- 

Star NX 15 (dtsch.) 

1.298,-- 

DMP 3000 / 3160 

660,- 

DMP4000 

898,- 

SD 15 Typenrad 

698,- 

SD 24 Nadeldrucker 

1.298,- 

RS 232 org. AMSTRAD 

248,- 

MS DOS 3.3 (IBM neu) 

198,- 

GW-Basic (m. llandb.) 

98,- 

\cngl. Handbuch für 6128 

48,- J 


FJektric Studio 
Produkte 


\ \ 



Lightpen * Freihandzeichen 
auf dem Bildschirm • gängige 
Funmtionen (Bleistift, Sprühdose...) 
CPC's 98,— Joyce 278,-- 

PC 98,- 

Video Digitizer * Einlesen 
von Bildern (Video) in Computer 
CPC's 348,- Joyce 348,- 
PC (neu!!) 398,- 

Mouse * mit Joystickan¬ 
schluß am Interface und Zeichensoft¬ 
ware wie beim Lightpen 


Joyce 448,- 

\Adapter (♦) 


29,- 


( Public Domain MS-DOS Software 

Mehr als 700 Disketten mit über 10 000 Programmen sofort 
lieferbar! Bitte fordern Sie unsere Liste an! 

Es handelt sich hierbei um Software, die der kommerziell vertriebenen in Leistung und Bediorerbeund- 
liehkeit kaum naefasteht Wesentlich ist, daß diese -Software frei von Copyrights und Vostenlca ist. Ange¬ 
gebene Preise dienen der Deckung von Unkosten (teerdisketten, Kopieren u.s.w.). Das Angebot der 
Public Domain Software ist sehr vielseitig. 

Eine Garantie, daB die freien Programme funktionieren und welche Leistung sie bieten, 
kann nicht gegeben werden! 

Nachfolgend einige Beispiele: 

* Spielcdiskctten (z.B. Schach, Flugsimulator, Kartenspiele u.s.w.) • Textverarbeilung (PC-Write) • PC- 
Musican (Musik zum Selbstkomponicrcn) • Best Games (Sammlung der besten Spiele) • Key Draw 
(Farbgrafiksystem) ■ Present (DiavorfUhrung) ■ Turboeprite (Demos inTurbo Pascal) • Draflsman 
(Erstellen von Grafiken) • Deskmaies (Hintergrund-Programm) • Cavcquest (Adventure) • und viele 
mehr, Liste anfordem 


PD-10er Blöcke: 


Jede Diskette nur 8,— DM 


Block I 

- Textverarbeitung 

- Flightsimulatar 

- PC File 111 

- ftinter Utilities 

- Basic Progr. Utilil. 

- Wertpcpicr/Finanzcn 

- Mini Assembler 

- Programm Ccmtrol 

- “Crossrer 

- * Staitrek" 


Block 2 Block 3 Block 4 

- Dalenbankorganiaatirm - PC-Write - Drucker-Utilities 

- Brasef + Make - Poster - Musflc 

- Bowling Seaetary - Tabelloikalculaticp - Touchtype 

- Finance - Spiele deutsch - Applikation 

- Math und Stat - Prolog - PC-Calc 

- Print Grafik I+II - Datenbank - Infobase Datenbank 

- Basic Translator - Finance - PC-ZAP 

-ESIEkunad tmelhgenz - DOS Tutor. deutsch • Hilfsprogramme 

• Wizard's Castle Game -Monopoly ■ Drucker Utä me» 

- Packmar. and Newtrck - Horoskop - Basa; Utiibes 


je Block 


nur 68,- DM J 


Grafpad III 

Das Professionelle CAD-System für den Joyce und für den 
PC! _'_ 


A Frei wählbarer Zeichen¬ 
satz 

A Maßeinheiten können 
angegeben werden 
A 16 verschiedene Zeich¬ 
nungsebenen 
A Symbolbibliotheken 
können angelegt werden 
A Stufenlose Zoomfunk¬ 
tionen 

A Freiwählbares Raster 
A Freiwählbarer Cursor¬ 
sprung 

A 16 verschiedene Linien- 
typen 

A Dehnen, kippen, rotieren, 
kopieren 

A Verschieben und löschen 
aller Symbole, Texte, 
Objekte 

A Vergrößern und ver¬ 
kleinern 
A Schraffieren 
A Automatisches Bemaßen 



Joyce: 548,- DM 

PC: 698,- DM 

mit deutschem Handbuch! 

deutsches Handbuch auch einzeln 
erhältlich: 29.80 DM 

Einzelinfo anfordern! 
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Public Domain 

Software 

(CPC/Joyce) 

Ca. 1000 Programme auf 300 Dis¬ 
ketten für Ihren CPC 464, 664, 
6128 und Joyce! 

Liste anfordern! 

Jede Diskette (3", 3,5*, 5t/4“) 20,-- 

PD deutsch: 

Nr. 1: Pascal-Compiler (JRT) 
Nr.2: Z80 Assembler, Disassem¬ 
bler und Linker 
Interpreter für Lisp und 
Prolog 

C-Compiler (Small C) 
Forth-83 

CP/M-Hilfsprogramme 
Diskettenmonitor 
Großes CPC Arbeitsbuch 
Colossal Cave-Adventure 
Nr.9: CPC Disk Utilities 
Nr. 10: BizBasic mit Dateivcrwalt 
Nr. 11: Basic Compiler 
Nr. 12: Inline-Generator, Grafik 
^Diskette (3". 51/4") 30.—> 


Nr.3: 

Nr.4 

Nr.5 

Nr.6 

Nr.7 
Nr. 8 


/'AMX Seitengestalter 

* kombinierbar zur AMX-Mouse 

* erlaubt Herstellung von Zeitung¬ 
en, Poster und Handzettel 

* benötigt 64k Zusatzspeicher bei 
464 und 664 (nur dk'tronicsü) 

* für Joyce noch kein Liefertermin 
Programm incL dtsch. Handbuch 

DM 178,-- 

Handbuch dtsch. auch einzeln er¬ 
hältlich DM 29.80 
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Gerdes-Maus CPC 179,- 

Gerdes-Maus Joyce 179,- 

(Schnittstelle CPS 8256 für Joyce notwendig) 

Star Mouse: 

• spanische Maus mit Grafiksoft¬ 
ware ähnlich AMX-Mouse 
zum sensationellen Preis von 
s._nur 128,- 


AMX-Mouse 

* Steuerung des Computers über 
den Bildschirm 

* mit hervorragendem Grafikpro- 
gramm 

* Text und Grafik können vermischt 
werden 

Programm incl. dtsch. Handbuch 
DM 248,- 

AMX-Mouse für Joyce 298,- 

(Adapter für Joyce notwendig: 29,—) 

Handbuch dtsch. auch einzeln 

erhätlich DM 29.80 


f Schaltplanservice 

CPC 464 664-6128 je 29.80 

PCW 8256-8512 29.80 

CTM 644 19,80 

CTM 640 19,80 

GT 64/65 je 19,80 

PC 1512/ 1640 29.80 

Monitor CM/MM je 19.80 

Vokabeltrainer: K 39,- 

Joyce 59,- D 49,- 

Verbentrainer: K 29,- 

ijoycc 49,- D 39,- 


fTIandbücher dtsch .a 

Graipad 3 • Lightpcn dk'tronics ■ 64/256 k Er¬ 
weiterung dk'rronics • Mouse Elektrik Studio • 
Lightpcn Rlcktrik Studio * AMX Mouse ■ AMX 
Seitenge staltcr - Atndrum • V idco Digitizer • 

Rombo* - Vidi 29,80 

Software PC 

TAS+ relationale Datenbank • mit deut¬ 
schem Handbuch und ausführlichem Lehrteil • 

398,- 

ABLE ONE Softwaiepakct • Te*t- 

veraibeitung, Kalkulation, Grafik, Datenbank • 

w 498,- . 


Dart - Scanner 
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Präzisionshardware 
aus England! 

Wenn Sie Besitzer eines Schnei¬ 
der CPC und eines DMP 2000 
sind, haben Sie mit demDart- 
Scanner die Möglichkeit, Bilder 
und Grafiken in 4 verschiedenen 
Auflösungen bis zur DIN A4 Größe oder bis zu 20 x 10 Punkte pro mm^ 
(höher als Laserdruckerauflösung) in Verbindung mit einem kompletten 
Grafikprogramm in den Computer einzulesen! Anschließend können diese 
eingelesenen Objekte beliebig weiterverarbeitet und ausgedruckt werden. 
Für folgende Druckertypen: DMP 2000/3000/3160 und Riteman F+ 
Weitere Druckeranpassungen werden folgen! Info anfordern! 

CPC 464, 664 und 6128 nur 249,- 

mit deutscher Anleitung ! Adapter für CPC 6128 29,~ 


Zubehör CPC 

Traktor NLQ 401 68,- 

Amdrum (Schlagzeugsimulation) 
mit deutschem Handbuch 109,- 


Datenfernübertragung 

Dataphun 21 S 

278,- 

Dataphon 21-23 S 

378,- 

Anschlußkabel 

68,- 

Treibersoftware 

58,- 


dk'tronics Produkte 


für 464/664: 


für 6128: 


Speech Symh. (ROM) 

148,- 

256k Erweiterung * 

278,- 

Speech Synth. (Kas.) 

98,- 

256k Silicon Disk * 

298,- 

Lightpcn (Kas.) 

68,- 

Speech Synth. (ROM) * 

148,- 

Lightpen (ROM) 

98,- 

Lightpen (ROM) * 

98,- 

64k Erweitemng 

126,- 

64k Silicon Disk * 

128,- 

256k Erweiterung 

278,- 

Uhrenmodul (neu!!) * 

119,- 

256k Silicon Disk 

298,- 

Adapter (all Module *) 

29,- 


Uhrenmodul (neu!!) 
für Joyce 
256k Erweiterung 
Joystick-Controller * 
Joystick-Controller + 
Soundsynth.* 
Echlzeituhrenmodul * 
Adapter (*) 


128, 

109,- 

69,- 

129,« 

129,- 

29,- 



TV Tuner für CPC 

Machen Sie aus Ihrem Schneider CPC (color) einen Farb¬ 
fernseher! Mit Stationstasten! 

TV Tuner Screens 298,— 

Einzelinfo anfordern! 



r Wichtiges Zubehöres 

Dmckerkabel CPC's 39,- 

Monitor Verlängerung CPC 23,50 

Farbband für: NLQ 401 14,80 

DMP 2000/3000/3160 19,80 

10 Disk. 5 1/4" ss/ds 29,-/39,~ 

10 Disk. 3" CF2D/2DD 69,-/148,- 
Diskeuenbox 3"/3,5" 40 39,80 

Diskettenbox 3"/3,5" 80 49,80 

Joystick Compet. 5000 39,- 

Joystick Schneider 35,~ 

Etiketten 70*70 mm (200SL) 16,- - 

Abdeckhauben: 

Konsole 464, 664,6128 19,80 

Monitor grün, color 29,80 

DMP 2000/3000 19,80 

Floppy DD1, FD1, Vortex 16,80 

Hardware CPC: 

CPC 6128 grün 758,-- 

CPC 6128 color 1.233,- 

CPC 464 Keyboard 283,- 

Monitor griin/color 283,-/663,-- 
DD1 mit Controller 478,- 

FD1 mit Kabel 478,- 

RS 232 (464, 664, 6128) 148,- 

S MP2 _99^ 


^ Multiface II ^ 

(Kopierprogramm) 



vollständige Kopiereinrichtung für 
Kassetten und Disketten 
Wird auf den Expansionsport Ihres 
CPC 464, 664 und 6128 aufge¬ 
steckt 

Wahlweiscs Kopieren von Kas. auf 
Disk, und umgekehrt, sowie von 
Kas. zu Kas. und Disk, zu Disk. 

DM 178,- 

Adapter für 6128 29,- 

Mirage Imager 

(Kopierprogramm) 
wie Multiface II 148,-- 

NAdapter für 6128 29.- J 


r Mastercopy ^ 

Der Spitzenreiter unter den Kopier¬ 
programmen für Schneider CPC. 
Mastercopy kopiert 99,9 % aller 
Disketten!! 

Sollte es einmal versagen, kann ein 
preiswerter Update-Service in An¬ 
spruch genommen werden. 

3" Diskette zum sensationellen Preis 


r Supercopy 

Das Diskettenkopierprogramm der 
Superlative für den Schneider CPC 
464,664, 6128 und Joyce! 

- Sicherheitkopie anlegen möglich! 

- bearbeitet alle 43 Spuren 

Service: Sollte Supercopy einmal etwas nic h t 
schaffen, dann senden Sie die Orginaldiskcne 
Ihres Programms und von SUFERCOPY an den 
Hersteller, dann erhalten Sie kostenlos eine neue 
Version incl. der Erkennung des neuen Kopier- 


_ DM 69,90 J \ q-~ Disk CPC'S 65,- Joyce 85 ,- j 

Karl-Heinz • Potsdamer Ring 10-7150 Backnang» 

Telex 724410 weeba d • Kreissparkasse Backnang 
(BL2 60250020)74397 



COMPUTER-ELEKTROniK 

Zahlung per Nachnahme oder Vorauskasse (Ausland 
perScheck). Versandkostenpauschale (Inland 6,80 DM / 
Ausland 16,80 DM) 

07191/1528-29 od. 60076 J 
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So können Kalender auch aussehen! 


UNIVERSAL 

KALENDER 

Ein gregorianischer Kalender von 
1500 bis 9999 für alle CPCs! 


Dieser Kalender eignet sich zur Bestimmung des Wochen¬ 
tages eines vorgegebenen Datums, sowie zur Übersicht 
über den gesamten Monat und über die wichtigsten Feier¬ 
tage des angezeigten Jahres. Weiterhin findet man in der 
Fußzeile Uhrzeit und Datum. 


Nach dem — hoffentlich fehlerfreien — Abtippen und Starten mel¬ 
det sich das Programm mit dem Titelbild. Dieses verschwindet auf 
Tastendruck. Nun ist die Frage nach aktuellem Datum und der Uhr¬ 
zeit zu beantworten. (Es ist anzumerken, daß bei allen Eingabemas¬ 
ken die Eingabe mit < ENTER > bestätigt werden muß. Die Einga¬ 
bemasken werden in einem speziellen Unterprogramm erstellt, um 
die Schwächen der “Input“- Anweisung zu umgehen.) Die Antwor¬ 
ten sind nun entweder mit “j“ zu bestätigen oder mit “n“ zu wieder¬ 
holen. 

Hiernach beginnt das eigentliche Programm: Wählen Sie nur den 
Monat, den Sie als Kalender sehen wollen, indem Sie entweder den 
Namen, einen Teil des Namens oder die Nummer des Monats ein¬ 
geben. Das Jahr geben Sie bitte als vierstellige Zahl ein. Nun er¬ 
scheint der gewählte Monat. Mit den Cursortasten kann man wie 
folgt “durch die Zeit wandern“: 


Cursortasten: links = li 
rechts = re 
hoch = ho 
runter = ru 
Monat vor = re 

Monat zurck, = li 


Jahr vor 
Jahr zurück 
Jahrzehnt vor 
Jahrzehnt zurück 
Jahrhundert vor 
Jahrhundert zurück 


= ho 
= ru 

= SHIFT + ho 
= SHIFT + ru 
= CTRL + ho 
= CTRL + ru 


Drücken Sie die kleine ENTER- Taste, um den ursprünglich einge¬ 
stellten Monat zu sehen, den Punkt daneben, um den laufenden Mo¬ 
nat zu sehen. Mit “1“ listet der Computer die wichtigsten Feiertage 
des angezeigten Jahres. Mit der großen ENTER- Taste kann man 
einen neuen Monat wählen. 


Zum Abtippen 

Das Programm kann ohne Kommentarzeilen abgetippt werden, da 
diese nicht angesprungen werden. 


Weiterhin ist es dann möglich, das Programm mit automatischer 
Zeilennummerierung — nach Eingabe des < AUTO > -Befehls — 
abzutippen. Und nun wünsche ich viel Spaß und Erkenntnis mit 
dem Programm. 


t$(7) 

m(l2) 

m$(12) 

b$(59) 

dat$(34) 

dat(34,2) 

i 

ta, monal, jahr, ta$ 

std,mi 

ml jl 

wt 

m,j 

d, m, j 

k,l,o,p,zl,z2,z3,4 

z 

st 

t$, za 
<t$ 

za = VAL(t$)) 


Variablenliste: 

Wochentage 

Anzahl der Tage des Monats 
Name des Monats 

zweistellige Ziffcmfolge für die Zahlen von 0 bis 59 

Name des Feiertages 

Datum und Nummer des Feiertages 

Schleifenvariable 

laufendes Datum 

aktuelle Zeit 

gewählter(s) Monat / Jahr 
Wochentag 

angezeigter(s) Monat / Jahr 

Eingang in das Unterprogramm zum Berechnen des 
Wochentages 

Hilfsvarablen in diesem Unterprogramm 
Ausgang aus diesem Unterprogramm 
Eingang in das Unterprogramm “Eingabemaske“ (An¬ 
zahl der Stellen) 

Ausgang aus diesem Unterprogramm 
Textstring, der eingegeben wurde. 

Alle anderen vorkommenden Variablen sind spezielle 
Hilfsvariablen. (M. Welsch / JB) 


für 464-664-6128 

H 

— 

li 

n 

[_ . 

5 '**• Initialisierungen [ 

1283] 


10 SYMBOL AFTER 32:ENV 1,10,-1,10 {2106] 

20 SYMBOL 200,204,0,120.12,124,204,118 [2074] 

30 SYMBOL 201,90,60,102,102,126,102,102 [2134] 

40 SYMBOL 202,102,0,60,102,102,102,60 [2007] 

50 SYMBOL 203,189,102,102,102,102,102,60 [1559] 

60 SYMBOL 204.102,0,102,102,102,102,62 [2118] 

70 SYMBOL 205,102,66,102,102,102,102,60 [1789] 

BO SYMBOL 206,60,102,102,124,102,102,124,9 [2394] 

6 

90 KEY DEF 15,1,200,201:KEY DEF 13,1,202,2 [4639] 
03:KEY DEF 14,1,204,205:KEY DEF 5,1,206:KE 
Y DEF 7,1,164:SPEED KEY 20,1 

100 t$(1)="Sonntag":t$(2)="Montag“:t$(3)=" [9996] 
Dlenstag":t$(4)="M1ttwoch":t$(5)=“Donnerst 
ag”:t$(6)="Freitag":t$(7)="Samstag":DIM m( 

12) ,m$(12),b$(59),dat$(34),dat(34,2) 

110 RESTORE 1140:FOR i = l TO 33:READ dat$(i [2544] 
) 

120 IF INSTR(dat$(i),"[”) THEN MI0$(dat$(i [4124] 
),INSTR(dat$(1),"["), 1)=CHR$(200):GOTO 120 
130 IF INSTR(dat$(1), B )") THEN MIO$(dat$(i [4139] 
Listing Kalender 


),INSTR(dat$(i),"]"),1)=CHR$(202) 

140 IF INSTR(dat$(1),"*") THEN MID$(dat$(i [4764] 
).INSTR(dat$(i),,1)=CHR$(206) 

150 NEXT i : IF INKEY$="" THEN GOSUB 1420 [1638] 

1’60 MODE 2: INK 1,26:PRINT CHR$(24)"U N I V [10695] 
ERSAL-KALENDER 

"CHR$(164)" 1986 by Michael P. Welsch" 

CHR$(24):WINbOW 1,80,2,24:WINDOW #2,1,80,2 
5,25:PEN #2,Q:PAPER #2,1:CLS#2 

170 m$(l)=”Januar":m$(2)="Februar":m$(3)=" [11385] 
M"+CHR$(200)+"rz":m$(4)="Apri1":m$(5)="Mai 
":m$(6)="Jun1":m$(7)="Juli":m$(6)=“August" 

:m$(9)="September":m$(10)="Oktober":m${11) 
="November“:m$(12)="Dezember" 

180 m(l)=31:m(2)=28:m(3)=31:m(4)=30:m(5)=3 [4808] 
l:m(6)=30:m(7)=31:m(8)=31:m(9)=30:m{10)=31 
:m(ll)=30:m(12)=31 

190 b$(0)="00“:FOR i=l TO 9:b$(i)="0"+MID$ [5635] 
(STR$(i),2,1):NEXT i:FOR i=10 TO 59:b$(i)= 
b$(t)+MID$(STR$(i),2,2):NEXT i 

195 '*** Eingabe: Datum, Uhrzeit [1683] 

200 CLS:PRINT"Bitte geben Sie das heutige [3339] 
Datum ein:" 

210 za=100:WHILE za<l OR za>31:LOCATE 10,2 [8149] 
:st=2:PRINT"Zuerst der Tag : GOSUB 1280 

:WEND:ta=za 

220 za=100:LOCATE 10,3:st=2:PRINT"Dann der [7934] 
Listing Kalender 
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Programme 


Monat : ;:GOSUB X280:m(2)=29:IF za<l OR 

za>12 THEN 220 ELSE IF ta>m(za) THEN 220 
230 monat=za 

240 za=0:LOCATE 10,4:st=4:PRINT"und zuletz 
t das Jahr : ”;:GOSUB 1280:IF za<1500 OR z 
a>9998 THEN 240 ELSE IF monat=2 AND ta=29 
THEN d=29:m=monat:j=za:GOSUB 560:sp=z:d=l: 
m=3:GOSUB 560:IF z=sp THEN 240 
250 jahr=za:za=100:st=2:PRINT:PRINT:PRINT“ 
Bitte geben Sie nun die aktuelle Uhrzeit e 
in:“:WHILE za<0 OR za>23:LOCATE 10,7:PRINT 
"Zun”CHR$(20Q)"chst die Stunden : ";:G0SUB 
1280:WEND:std=za 

260 za=100:WHILE za<0 OR za>59:LOCATE 10,8 
:PRINT”Dann die Minuten : ";:G0SUB 1280:WE 
ND:mi=za 

270 d=ta:m=monat:j=jahr:GOSUB 560:ta$=t$(z 
):m1=m1-l:GOSUB 1350:EVERY 3000 GOSUB 1350 
280 st=l:WHILE t$< >"N" ANO t$<>"Y" AND t$< 
> " J": LOCATE 1,15: PR INT "Alles richtig? ";:G 
OSUB 1280 : t$=UPPER$( t$ ) : WEND: IF t$= ,, N" THE 
N 200 

285 ’*** Hauptprogramm: Eingabe: Monat; An 
zeige; Tastaturabfrage 

290 CLS:WHILE INKEY$<>”":WEND:st=10:LOCATE 
1,1:PRINT"Welchen Monat wollen Sie sehen? 
GOSUB 1280 

300 m=za:FOR 1=1 TO 12:IF INSTR(UPPER$(m$( 
1)),UPPER$(t$)) OR INSTR(UPPER$(t$),UPPERS 
(m$(1))) THEN m=1:GOTO 320 

310 NEXT 1:IF m=0 OR m>12 THEN IF INSTR("M 
AER2",UPPER$(t$)) OR INSTR(UPPER$(t$),"MAE 
RZ“) THEN m=3 ELSE 290 

320 WHILE INKEY$< >"":WEND:st=4:LOCATE 1,2: 
PRINT"Den Monat "m$(m)" aus welchem Jahr? 

";:GOSUB 1280:j$=t$:j=R0UND(za):IF j<1500 
OR j >9999 THEN 320 ELSE ml=m:jl = j 
330 WINDOW 1,49,2,12:CLS:WINDOW #1.1,31,5, 
5:PAPER #1,1:CLS#1:PRINT“Der Monat "m$(m)" 
aus dem Jahr"jd=l:GOSUB 560:LOCATE 1, 
4:PRINT CHR$(24)t$(1);TAB(11)CHR$(149)CHR$ 
(24);:FOR 1=2 TO 7:L0CATE 1,1+3:PRINT t$(i 
);TAB(11)CHR$(149);:NEXT 

340 IF m=2 THEN d=29:GOSUB 560:sp=z:d=l:m= 
3:GOSUB 560 :d=l :m=2 : IF zOsp THEN m(2)=29 
ELSE m(2)=28 

350 s=12:FOR t=l TO m(m):wt=((t+z-2) MOD 7 
):LOCATE s,wt+4:IF wt=0 THEN PRINT CHR$(24 
); 

360 PRINT b$(t)CHR$(149);:IF wt=0 THEN PRI 
NT CHR$(24); 

370 IF wt=6 THEN S=S+4 

380 IF NOT (INKEY CD) THEN m=m+l ELSE 410 
390 IF m=13 THEN m=l:j=j+l:IF j>9999 THEN 
j =99 99 

400 GOTO 330 

410 IF NOT(INKEY(8)) THEN m=m-l ELSE 440 
420 IF m=0 THEN m= 12:j=j-1:IF j<1500 THEN 
j = 1500 

430 GOTO 330 

440 IF INKEY(0)=0 THEN j=j+l ELSE IF INKEY 
(0)=32 THEN j=j+10 ELSE IF INKEY(0)=128 TH 
EN j=j+100 ELSE IF INKEY(0)=160 THEN j=j+l 
000 ELSE 470 

450 IF J >9999 THEN j=9999 
460 GOTO 330 

470 IF INKEY 12) = 0 THEN j=j-l ELSE IF INKEY 
(2)=32 THEN J=j-10 ELSE IF INKEY(2)=128 TH 
EN j = j-100 ELSE IF INKEY(2) = 160 THEN j =j —1 
000 ELSE 500 

480 IF j <1500 THEN j = 1500 
490 GOTO 330 

500 IF NOT(INKEY(18)) THEN 290 ELSE 510 
510 IF NOT(INKEY(6)) THEN j=j1:m=ml:GOTO 3 
30 ELSE 520 

520 IF NOT(INKEY(7)) THEN j=jahr:m=monat:G 
OTO 330 ELSE 530 

530 IF NOT(INKEY{36)) THEN GOSUB 670 
540 NEXT t:GOTO 350 
550 GOTO 350 

555 '*** U: Wochentag berechnen 
560 k=INT{0.6+(1/m)) 

570 1=j-k 
580 0=m+12*k 
590 p=l/100 
600 Z1=INT(p/4) 

610 z2=INT(p) 

620 z3=INT((5*1)/4) 
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[944] 

[11378] 


[14929] 


[5130] 

[5920] 

[8399] 

[4268] 

[5287] 

[6852] 

[7003] 

[10989 } 

[14212] 


[3500] 


[3769] 


[3017] 

[1157] 

[1355] 

[1684] 

[506] 

[966] 

[1794] 

[506] 

[ 10074] 


[1123] 

[506] 

[7396] 


[1564] 
[506] 

[1651 ] 
[3747] 

[3287] 

[1636] 

[948] 

[470] 

[ 1934] 

[442] 

[125] 

[503] 

[203] 

[ 723] 
[908] 
[1175] 


Einfacher zu bedienen 



Die relationale GEM Datenbank. 

• GEM Benutzeroberfläche. Einfache Dateneingabe und 
-abfrage 

• Voll relational. Fünf Dateien sind miteinander verknüpfbar 

• Virtuelle Speichertechnik. Keine Begrenzung durch die 
Speicherkapazität Ihres Rechners 

• Selbstgestaltete Eingabehrnnulara Nach Ihren ganz 
persönlichen Anforderungen 

• Report-System. Berichte in jeder gewünschten Form 

• Ergebnis-Ttansfet Woher und wohin Sie wollen 

• ab DM 395r unverbindl. Preisempfehlung 


SOFTWME PRODUCTS INTHMTHMM. (D«rt*a»UwT) Gnftfl 
nn i w a m mip HU H, Ö-MOD IHadwiSI.M. 089/9210 06-0, Weta (17) 887174 


Markt&Technik 

Geschäftsbereich Software%lag 
Hans PmsefStraße 2 
0013 Haar 
089/4 6130 


T K. Krug 
EDVBeratung-Systeme 
Weißenburgsiraße 49 
0400 Regensburg 
0941/79 20 M 


Hard & Softwarebüro Dotouer 
Haidgraben 3 
8012 Otlobrum 
089/60 90095 
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I—Programm 


630 z4=INT(13*(o+l)/5) [847] 

640 z=z4+23-z2+2l+d-l [1439] 

650 Z=Z-(7*INT(z/7))+l [1540] 

660 RETURN [555] 


665 ' *** U: Feiertage berechnen und anzeig [2184] 

en 

670 ms=m:js=j:ds=d:ss=s:zs=z:WINDOW 1,80,2 [9667] 
,24:LOCATE 1,12:PRINT"W1chtige Daten"j;CHR 
$(8)”:":LOCATE 1,12:PRINT CMR$<22)CHR$(1)S 
TRING$(20,95)CHR${22]CHR$ ( 0) 

680 WINDOW 50,80,3,24:r=j MOD 19:RESTORE 1 [8134] 
130:FOR 1=0 TO r:READ d,m:NEXT:dat(1,0)=1: 
dat( 1 ,l)=l:dat(2,0)=6:dat(2, 1 )=l:dat( 1 , 2 )= 

1:dat(2,2)=2 

690 CLS:WINDOW 1,31,14,24:CLS [1436] 

700 GOSUB 560:z=B-z:dat=d+z:mon=m:IF dat>3 [9516] 
1 AND mon=3 THEN dat=dat-31:mon=mon+1 ELSE 
IF dat>30 AND mon = 4 THEN dat=dat-30:mon=m 
on + 1 

710 1=48:GOSUB 1180:dat<3,0)=dat1:dat(3,1) [1871] 
=mon1:dat(3,2)=3 

720 1=47:GOSUB 1180:dat(4,0)=dat1:dat(4,1) [3393] 
=mon1:dat(4,2)=4 

730 1=46:GOSUB 1180:dat(5,0)=datl:dat(5,1) [5557] 
=monl:dat(5,2)=5 


740 dat(6,0)=14:dat(6,l)=2:dat(6,2)=6 [2623] 
750 1=2:GOSUB 1180:dat{7,0)=dat1:dat(7,1)= [2383] 
monl:dat(7,2)=7 

760 dat(8,0)=dat:dat(8,1)=mon:dat(8,2)=8 [1497] 
770 1=1:GOSUB 1230:dat(9,0)=dat1:dat(9,1)= [2552] 
monl:dat(9,2)=9 

780 dat(10,0)=l:dat(10,l)=5:dat(10,2)=10 [2322] 
790 dat(ll,0)=5:dat(ll,l)=5:dat(ll,2)=ll [1978] 
800 1=39:GOSUB 1230:dat(12,0)=dat1:dat(12, [3688] 

1 )=monl:dat( 12 , 2 ) = 12 

810 d=1:m=5:GOSUB 560:IF z=l THEN z=8 [2814] 


820 dat(13,0)=16-z:dat(13,l)=5:dat(13,2)=l [2136] 
3 

830 1=49:GOSUB 1230:dat(14,0)=dat1:dat(14, [3133] 
1)=monl:dat(14,2)=14 

840 1=50:GOSUB 1230:dat(15,0)=dat1:dat(15, [1108] 
1)=monl:dat{15,2)=15 

850 1=60:GOSUB 1230:dat(16,0)=dat1:dat{16, [4484] 

1 ) =mon 1 :dat( 16 , 2)=16 

860 dat(17,0)=17:dat(17,l)=6:dat(17,2)=17 [1755] 

870 dat{18,0) = 15:dat(18,l)=8:dat(18,2) = 18 [ 1748] 

880 d=l:m=10:GOSUB 560:IF z=l THEN z=8 [2119] 

890 dat(19,0)=9-2:dat{19,1)=10:dat(19,2)=1 [I960] 
9 

900 dat(20,0)=31:dat(20,1)=10:dat(20,2)=20 [1644] 
910 dat(21,0)=l:dat(21,l)=ll:dat(21,2)=21 [1791] 

920 dat(22,0)=16:dat(22,1)=11:dat(22,2)=22 [2231] 


930 d=l:m*11:GOSUB 560:IF z>4 THEN z=z-7 [ 1810 ] 

940 dat(23,0)=19-z:dat(23,1)=11:dat(23,2)= [1927] 

23 

950 d=l:m=ll:GOSUB 560:IF z=l THEN z=8 [2079] 

960 dat(24,0)=30-z:dat(24,1)=11:dat(24,2)= [3590] 

24 

970 d=25:m=12:GOSUB 560:IF z=l THEN z=B [2298] 
980 dat(28,0)=26-z:dat{28,1)=12:dat(28,2)= [2728] 
28 

990 dat(27,0)=19-z:dat(27,l)=12:dat(27,2)= [2645] 

Listing Kalender 


27 

1000 dat( 26 , 0 )= 12 -z:dat{ 26 ,l)= 12 :dat{ 26 , 2 ) 
=26 

1010 IF 5-z<1 THEN dat(25,0)=35-z:dat(25,1 
)=11 ELSE dat(25,0)=5-z:dat(25,1)=12 
1020 dat(25,2)=25 

1030 dat(29,0)=6:dat(29,1)=12:dat(29,2)=29 
1040 dat(30,0)=8:dat(30,l)=12:dat(30,2)=30 
1050 dat(31,0)=25:dat(31,1)=12:dat(31,2)=3 
1 

1060 dat(32,0)=26:dat(32,l)=12:dat(32,2)=3 
2 

1070 dat(33,0)=31:dat(33,1)=12:dat(33,2)=3 
3 

1080 me-0:FOR 1=1 TO 32:IF dat(i,1) >dat(1 + 

1.1) OR (dat(1,1)=dat(i+1,1) AND dat(i,0)> 
dat(i+1,0)) THEN GOSUB 1120 

1090 NEXT 1:IF me THEN 1080 

1100 FOR 1=1 TO 11:me=dat(i,2):PRINT b$(i) 
". "dat$(me);b$(dat(1, 0 ))"."b$(dat{ 1 , 1 ))". 
";:NEXT 1 

1110 WINDOW 50,80,3,24:FOR 1=12 TO 33:me=d 
at( 1 ,2): PRINT b$(U". "dat$(me);b$(dat(i,0 
))"."b$(dat(1,1))".";:NEXT i:d=ds:m=ms:j=j 
s:s=ss:z=zs:WINDOW 1,49,2,12:RETURN 
1115 ’*** U: U: Variablentausch 
1120 datO=dat(1, 0 ):datl=dat( 1 , 1 ):dat 2 =dat( 

1.2) :dat(i,0)=dat(1+l,Q):dat(i,l)=dat(i+l, 
l):dat(1,2)=dat(1+l,2):dat(1+l,0)=dat0:dat 
(1+l,l)=datl:dat(1+l,2)=dat2:me=-l:RETURN 
1125 '*** U: U: Daten fuer Feiertage 

1130 DATA 14,4,3,4,23,3,11,4,31,3,18,4,8,4 
,28,3,16,4,5,4,25,3,13,4,2,4,22,3,20,4,30, 
3,17,4,7,4,27,3 

1140 DATA "Neujahr."."Heilige 

Drei K]n1ge..", "Rosenmontag.“ , "F 

astnacht." , "Aschermittwoch. 

. .''."Valentinstag.", "Karfreitag. . . 

.'', "Ostersonntag.", "Ostermo 

ntag." , "Mal f e i e rtag." 

1150 DATA "Europatag.","Christi 

Himmel fahrt. . " , "Muttertag.", "P 

f 1 ng st sonn tag.", "Pfingstmontag. 

. .‘‘."Fronleichnam.", "Gesetz 1 . Feie 

rtag....”,“Mari[ Himmel fahrt....","Ernteda 

nk.. " , "Reformationstag." 

1160 DATA "Allerheiligen.".“Volkstr 

auertag.","Bu“~ und Bettag.","T 

otensonntag.","1. Advent. 

..","2. Advent....." , " 3 . Advent.... 

...","4. Advent.","St. Ni k 

olaus." , “Mari [ Empf[ngnis." 

1170 DATA "1. Weihnachtstag.","2. Weih 

nachtstag .....“, "Si 1 vester." 

1175 '*♦* U: U: zwei Unterprogramme fuer B 
erechnung der beweglichen Feiertage 
1180 datl=dat-l:monl=mon:IF monl=5 THEN da 
tl=datl+30:mon1=4 

1190 IF mon1=4 AND datl<l THEN datl=datl+3 
1:monl=3 

1200 IF monl=3 AND datl<l THEN datl=datl+2 
8:monl=2 

Listing Kalender 


[ 1932 ] 

[4064] 

[ 779] 
[2223] 
[2426] 
[1580] 

[ 2000 ] 

[2070] 

[5340] 


[864] 

[5094] 


[9798] 


[1412] 
[9892] 


[1180] 
[3841] 


[18609] 


[16183] 


[ 14689 ] 


[5551] 
[4755] 
[ 2101 ] 
[1859] 
[1871] 


Hobby-tranic 


Zwei Themen — ein Ereignis: 



Mfestfalenhallen 

Dortmund 


11. Ausstellung für Funk- 
und Hobby-Elektronik 

Die umfassende Marktübersichf für Hobby-Elektroniker 
und Computeranwender, klar gegliedert: 
In der Westfalenhalle 5 das Angebot für CB- und Amateur¬ 
funker, Videospieler, DX-er, Radio-, Tonband-, Video- und 
TV-Amateure, für Elektro-Akustik-Bastler und Elektroniker. 

Mit dem Actions-Center und Laborversuchen, 
Experimenten, Demonstrationen und vielen Tips. 

In der Westfalenhalle 6 dos Superangebot für Computer¬ 
anwender in Hobby, Beruf und Ausbildung. 
Dazu die Mikrocomputer-Beratung un 


die Stände der 


er-beratuna 

ComputercTi 


ubs. 



4. Ausstellung für Computer, 

Software una Zubehör 

3.-7. Februar 1988 

täglich 9-18 Uhr 

Stark verbilli g te Sonderrückfahrkarle 
an allen Bannhöfen der DB 
— Mindestentfernung 51 km außerhalb VRR 
plus Eintrittsermäßigung. 


/Messezentrum IVestfalenhallen Dortmund 
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1210 IF monl=2 AND datl<l THEN datl=datl+3 
1 :monl=l 
1220 RETURN 

1230 datl=dat+l:monl=mon:IF monl=3 AND dat 
1>31 THEN datl=datl-31:monl=4 

1240 IF mort 1=4 AND datl>30 THEN datl=datl- 
30:monl=5 

1250 IF monl=5 AND datl>31 THEN datl=datl- 
31:monl=6 

1260 IF monl=6 AND datl>30 THEN datl=datl- 
30;monl=7 
1270 RETURN 

1275 ' *** U: Eingabemaske 

1280 PRINT":WINDOW #7,POS(#0),POS(#0)+s 
t+l,VP0S(#0)+l,VPOSf #0) + l:PEN #7,0:PAPER # 
7,1:PRINT STRING$(st+2,32)":";:CLS#7:t$="" 

:WHILE INKEY$<>"”:WEND 

1290 a$=INKEY$: IF a$<" " AND a$OCHR$(13> 
THEN 1290 

1300 IF a$=CHR$(13) THEN 1340 

1310 IF a$=CHR$(12 7) THEN a$= , "‘:IF LEN(t$) 

>0 THEN t$=LEFT$(t$,LEN(t$)-l) 

1320 IF LEN (t$)Ost THEN t$=t$ + a$: PRINT# 7 
,CHR$(13)STRING$(st—LEN(t$)+1," ");t$;:GOT 
O 1290 

1330 GOTO 1290 

1340 za=VAL(t$):RETURN 

1345 '*** I: Laufende Uhr 

1350 mi=m1+l:IF mi<60 THEN 1410 

1360 m1=0:atd=std+l:f1ag=l:IF std<24 THEN 

1410 

1370 std= 0 :ta=ta+l:dl=d:ml=m:jl=j:d=ta:m=m 
onat: J=jahr:GOSUB 560:zl=z:d=l:m=monat+l:G 
OSUB 560: IF ta<28 OR ZlOz THEN 1400 
1380 ta=l:monat=monat+l:IF monat<13 THEN 1 
400 

1390 monat=l:jahr=jahr+1 
Lfsting Kalender 


[2887] 

[555 ] 
[3817] 

[1624] 

[1726] 

[2473] 

[555] 

[992] 

[9618] 


[2918] 

t 728 ] 
[5114] 

[5703] 


[353] 

[648] 

[1351] 

[1631] 

[2722] 

[8171] 


[2329] 

[2353] 


1400 d=ta:m=monat:j =j ahr:GOSUB 560:ta$ = t$( [4637] 
z):d=dl:m=ml:j=j 1 

1410 LOCATE #2,1,1:PRINT42,“Uhrzeit: "b$(s [13208] 
td)":“b$(mi):LOCATE #2,40,1:PRINT#2,"Datum 
: "ta$", der ”b$(ta)"."b${monat)".“jahr" 

”;:IF f1ag=l THEN f1ag=0:G0SUB 1480.RET 
URN ELSE RETURN 

1415 '*** u: Titelbild [363] 

1420 MODE 1:INK 0,0:INK 1,9:INK 2,18:INK 3 [2744] 
,26:BORDER 0 

1430 FOR x = 0 TO 640 STEP 15:PLOT x,0,((x/l [11355] 
5) MOD 3)+l:DRAW 0,400-x/8*5:PLOT 640-x,0: 

DRAW 640,400-x/8*5:PLOT x,400:DRAW 0,x/8*5 
:PLOT 640-x,400:DRAW 640,x/8*5:NEXT 
1440 a$="UNIV£RSALKALENDER":y=220:GOSUB 14 [8200] 
70:a$="von 1500 bis 9999”:y=200:GOSUB 1470 
:a$=CHR$(164)+" 1986 by Michael Welsch":y= 

180:GOSUB 1470 

1450 t=TIME:1=0:WHILE 1<300:x=RND*640:y=RN [5348] 
0*400:IF TEST(x,y)=0 THEN PLOT x,y,3:1=i+l 
1460 WEND:t=TIME:WHILE TIME<t+3000 AND INK [6793] 
EY$="":WEND:FOR 1=0 TO 200 STEP 2:MOVE i.i 
:DRAW 1,398-i,0:0RAW 638-i,398-i:DRAW 638- 
1,1:DRAW 1,1:NEXT:RETURN 

1470 x=(640-16*LEN(a$))/2:PLOT -100,-1,1:T [11504] 
AG:MOVE x,y:GRAPHlCS PEN ,1:PRINT a$;:PLOT 
-100,-1,2:M0VE x-2,y+2:PRINT a$;:PLOT -10 
0,-1,3:MOVE x-4,y+4:PRINT a$;:TAGOFF:RETUR 
N 

1475 '*** U: U: Big Ben [996] 

1480 SOUND 1,142,-1,14, l.-SOUND 1,179,-1,14 [10615] 

,1:SOUND 1,159,-1,14,l:SOUND 1,239,-1,14,1 
: SOUND 1,2,-1,14,l.-SOUND 1,239 , -1, 14,1: SOU 
ND 1,159,-1,14,1:SOUND 1,142,-1,14,1:SOUND 
1,179,-1,14,1:RETURN 
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SC HNEIDER-COMPU TER-CL ÜB NORDERBEEK 


Hw» <J*$ Nitjlitfi 
Straße md fr, 

FL2 md -3rt 


Ein iadung 

Lirtfr , mr laden Sie Hiermit herrl»ch ein 


r zu unserem Hackertreff 

iismnhwj: 1, Crack« d*r n»ufsUn Spiele 
Cracktn der neuesten Softwr» 
Crack« 

Cracken und seine Felsen 
33. i» " ' 


m SuwiUf. dH 52 


.32 


U;r *urd«n uns fru*n. wenn Sie an uns*r»r Zuswetnkunft 
tfihewMn könnt«. Sollten Sie jedoc> verhindert sein, bitten wir dir« 
kur: bes Ilka jA 48375 oder Wolfens <203951) telefonisch 
alles Cute und «einen ’Read Irrer' «unscht« 



SCHNEIDER-COMPUTER-CLUB NORDERBEEK 


toi der VmnsUltuns 

! iu unser» User Treff 
2> ju unser» B»Idunqsabertd 

(J> zu . . 


E in ladung 

Lieber Cmenter-rreuni , ¥ir laden Sie hiereit herrlich ein 


22.00 Ar bei «.Kopierer. 



Einladungen 
leicht gemacht 


Serienbriefe mit dem CPC 464 und dem Drucker 
DMP 2000 zu erstellen, ist keine Unmöglichkeit! 

Das beweist das Programm “Einladung“, das sich 
in der praktischen Vereinsarbeit seit über einem 
Jahr bewährt hat. 

Ob Kegelbruder oder Schülersprecher, Fußballtrainer oder 
Lehrgangsleiter, ob im Computerclub, im Bibelkreis, in der 
Gewerkschaftsgruppe oder bei der Freiwilligen Feuerwehr 
— dieses Programm schreibt für jeden und für alle Gelegen¬ 
heiten bequem, sauber und schnell genau die passenden Ein¬ 
ladungen! Jeder kann seine Einladungsschreiben sehr einfach 
menügesteuert erstellen und per Knopfdruck versandfertig 
mit Adresse und persönlicher Anrede des Empfängers aus- 
dracken. Absenderadresse und sogar der Drucksachenstem¬ 
pel sind schon drauf. Jetzt nur noch falten (Faltmarke: Unter¬ 
streichungslinie des Wortes “Einladung“!), in Fensterbrief¬ 
umschläge eintüten, Briefmarke drauf — und ab geht die 
Post! 

Und weil ein cleverer Organisator auch darauf bedacht ist, 
daß die Öffentlichkeit die Aktivitäten seines Vereins zur 
Kenntnis nimmt und so auch weitere Interessenten auf den 
Verein aufmerksam werden, darum verfaßt das Programm 
auf Wunsch ganz selbständig auch noch eine Presse-Informa¬ 
tion für den Veranstaltungskalender der Lokalzeitung. 

Der Einladungstext und auch die Eingabemaske für die je¬ 
weils aktuellen Daten sind vom Programm weitgehend vor¬ 


gegeben, was die Arbeit beim Erstellen der Einladungs¬ 
schreiben natürlich sehr erleichtert. 

Aber jede Gruppe hat doch auch ihre Besonderheiten: Angler 
wollen zünftig mit “Petri Heil!“ gegrüßt weden und Kegel¬ 
brüder mit “Gut Holz!“ (oder waren das die Fußballer?), 
Sportler nennen sich “Sportfreunde“ und Schüler “Klassen¬ 
kameraden“, Gewerkschaftler begrüßen sich als “Kollegen“ 
und duzen sich aus Prinzip, aber in anderen Vereinen ist auch 
das wieder anders. Und auf all diese Besonderheiten geht das 
Programm ein! Und so wird es gemacht: 

Am Ende des Listings finden Sie ein Unterprogramm, in dem 
die speziellen Besonderheiten Ihres jeweiligen Vereins ein¬ 
gegeben werden können. Ersetzen Sie gleich beim Eintippen 
die im Listing ausgedruckten Vereinsbezeichnungen, Adres¬ 
sen, Anrede- und Grußformeln durch Ihre eigenen Daten, 
Alle nötigen Eingaben sind durch REM-Zeilen erklärt, dar¬ 
um kann eigentlich gar nichts schiefgehen. Genauso pro¬ 
blemlos ist die Eingabe der Angaben für die Empfänger in 
den DATA-Zeilen am Schluß, wenn Sie die in der REM-Zei- 
le vorgegebene Reihenfolge der Daten beachten. 

So können Sie sich Ihr ganz eigenes, originelles Programm 
für den CPC zurecht “schneidern“, das Ihnen die Arbeit 
enorm erleichtert und Ihren Vereinskameraden gewiß impo¬ 
nieren wird. 

(K. Kracht/cd) 
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für 464-664-6128 

l 



1010 ' ===== Einladungsbriefe ==== [ 1047] 

1030 1 [117] 

1040 MODE 2:INK 0,1:INK l,24:BORDER 12 [2525] 


1050 WINDOW#1,4,79,2,24:PAPER#1,0:PEN#1,1: [3126] 
C LS# 1 

1060 PLOT 315,356,1:DRAWR 312,0:DRAWR 0,-9 [4038] 
0:DRAWR-312,0:DRAWR 0,90 

1070 PLOT 0,400,1:DRAWR 0,-399:DRAWR 638,0 [1893] 
:DRAWR 0,398 

1080 PLOTR-1,-398:DRAWR 0,398:DRAWR-636,0: [3098] 
DRAWR 0,-398 

1090 WIND0W#2,44,78,6,8:PAPER#2,1:PEN#2,0: [2304] 
CLS#2 

1100 WINDOW#3,41,78,4,8:PAPER#3,1:PEN#3,0: [2498] 
CLS#3 


1110 1 [117] 

1120 ‘Erstellen des Eln)adungstextes: [1931] 

1130 ‘- [1495] 

1140 GOSUB 3360:GOSUB 4080 [2162] 

1150 RESTORE 3970:ON ERROR GOTO 1180 [2445] 

1160 READ e$(l),e$(2),e$(3),e$(4),e$(5),e$ [1651] 

( 6 ) 

1170 aa=aa+l :GOTO 1160 [2008] 

1180 DIM a$[6,aa) ,d$(aa),r$(aa),g$(aa),n$( [2867] 
aa) ,s$(aa), p$(aa) 

1190 n=1:a=0 [89] 

1200 r$(0) = "" [506] 

1210 g$(0)="m" [770] 

1220 n$(0)="Name des Mitglieds" [1616] 

1230 s${0)="St ra"e und Nr.“ [2153] 

1240 p$(0)="PLZ und Ort" [1501] 

1250 d$(0)="Sie" [573] 

1260 GOSUB 3770 [983] 

1270 IF n=8 THEN GOSUB 3870 [1332] 

1280 v$=UPPER$(v$) [901] 

1290 PRINT#n,CHR$(13)TAB((35-FIX(LEN(v$))) [2362] 

/2)v$ 

1300 GOSUB 3820:IF n=l THEN 1320 [1551] 

1310 PRINT#n,CHR$(13)TAB((74-FIX(LEN(w$))) [2535] 

/2) w$ 

1320 PRINT#n:PRINT#n:IF n=8 THEN GOSUB 388 [3078] 
0 ELSE 1370 

1330 GOSUB 3680:GOSUB 3590:PRINT#8,n$ [2950] 

1340 GOSUB 3?30:PRINT#8,f$:GOSUB 3740 [2692] 

1350 GOSUB 3630:GOSUB 3660:G0SUB 3700 [2441] 


1360 IF n=8 THEN PRINT#n:GOSUB 3870:PRINT# [2711] 
n,"DRUCKSACHE":PRINT#n:GOSUB 3880 

1370 PRINT#n,n$(a)+STRING$(36-(LEN(n$(a))) [3445] 
," ") 

1380 PRINT#n,s((a)+STRING$(36-(LEN(s$(a))) [2931] 

") 

1390 PRINT#n,p$(a)+STRING$(36-(LEN(p$(a))) [3529] 
." "); 

1400 IF n<8 THEN PRINT#n,CHR$(22)CHR$(1 ) ; [2622] 

1410 PRINT#n,CHR$(13);STRING$(LEN(p$(a))," [2677] 
"); 


1420 IF n=l THEN PRINT#n [723] 

1430 IF n < 8 THEN PRINT#n,CHR$(22)CHR$(0); [2866] 
1440 PRINT#n:PRINT#n:IF n=8 THEN PRINT#n:P [2511] 
RINT#n:PRINT#n 

1450 IF a>0 AND a< = pse THEN GOTO 2940 [2180] 

1460 GOSUB 3770:PRINT#n,TAB(14)"Ein)adung“ [2419] 
1470 IF n = 8 THEN GOSUB 3770:PRINT#n,TAB(13 [3481] 

1 "_" C I CC 1400 


1480 PRINT#n:PRINT#n:PRINT#n [1555] 
1490 GOSUB 3820:IF n=8 THEN PRINT#n ELSE I [4164] 
F top< 6 THEN PRINT#n 

1500 IF g$(a)="m"THEN a$="r "+y$+" "+r$(a) [2408] 
:GOT 0 1520 

1510 a$=" " + x$+" " + r$(a) [ 1248] 
1520 PRINT#n,"Liebe"a$" , " ; [2086] 
1530 IF LOWER$(d$(a))="du"THEN a$="D1ch"EL [2059] 
SE a$=“Sie" 

1540 PRINT#n,"wir laden "a$" hiermit herzl [4625] 
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ich ein" 

1550 PRINT#n 

1560 IF n > 6 THEN 1670 

1570 PRINT#2,“<1> ”q$ 

1580 PRINT#2,"<2> zu unserem Bildungsabend 

1590 PRINT#2,"< 3 > zu ."; 

1600 e$="Art der Veransta1tungGOSUB 3300 

1610 i$=INKEY$:IF i$< >"1"AND i$<>"2"AND i$ 

< >"3"THEN GOSUB 3220:GOTO 1610 

1620 i=VAL[i$):ON i GOTO 1670,1630,1640 

1630 q$=”zu unserem Bi 1dungsabend":GOTO 16 

70 

1640 LOCATE#2,5,3 

1650 PRINT#2,CHR$(18)"zu unsere";:LINE INP 
UT#2,a$ 

1660 q$="zu unsere"+a$ 

1670 GOSUB 3770 

1680 PRINT #n,CHR$(13)TAB((35-FIX(LEN(q$))) 
/2)q$; 

1690 GOSUB 3820 

1700 IF n = 8 THEN PRINT#n ELSE IF t<4 THEN 
PRINT#n 

1710 IF n > 6 THEN IF it=2 THEN 1930 ELSE IF 
it=3 THEN 1840 ELSE 1950 
1720 CLS#2 

1730 PRINT#2,"<1> keine n{heren Angaben 

1740 PRINT#2,“<2> Thema 

1750 PRINT#2,"<3> Tagesordnung 

1760 e$="N{here Angaben zum Inhalt":GOSUB 

3300 

1770 it$=INKEY$:IF it$<>“l"AND it$<>“2“AND 
1t$<>"3“THEN GOSUB 3220:GOTO 1770 
1780 it=VAL(it$):ON it GOTO 1950,1910,1790 
1790 PRINT#2,"Bitte maximal 4 Punkte einge 
ben " 

1800 PRINT#2,"und mit <ENTER> best[tigen;" 
1810 PRINT#2,"Start und Sch1u~: einfach <E 
NTER>!" 

1820 e$="Tagesordnung":GOSUB 3300 

1830 1$=INKEY$:IF i$=“"THEN GOSUB 3220:G0T 

0 1830 

1840 PRINT#n,TAB(5)"Tagesordnung:"; 

1850 IF n=l THEN FOR t=l TO 4:CLS#2:PRINT# 

2.USING"##";t;ELSE 1890 

1860 PRINT#2,". Tagesordnungspunkt:" 

1870 PRINT#2,TAB(5)"";:LINE INPUT#2,"",t$( 
t):IF t$(t)=""THEN 1950 

1880 PRINT#n,TAB(20)USING"##"; t; :PRINT#n, " 

. "t$(t):NEXT:GOTO 1950 

1890 IF n>6 THEN FOR t=l TO 4:IF t$(t) = ""T 
HEN 1950 

1900 PRINT#n,TAB(20)USING"##";t;:PRINT#n," 
"t$(t):NEXT:GOTO 1950 
1910 e$="Thema":GOSUB 3300 
1920 CLS#2:LINE INPUT#2,"",z$ 

1930 g$="zum Thema "+CHR$(34)+z$+CHR$(34) 
1940 PRINT#n,CHR$(13)TAB((74-FIX(LEN(g$))) 
/2)g$ 

1950 IF n=8 THEN PRINT#n ELSE IF t<4 THEN 
PRINT #n 

1960 PRINT#n,"am 
1970 IF n>6 THEN 2050 
1980 CLS#2 

1990 PRINT#2,"<1> "j$ 

2000 PRINT#2,"<2> ." 

2010 e$="Wochentag":GOSUB 3300 

2020 i$=INKEY$:IF i$<>"l"AND 1$<>“2"THEN G 

OSUB 3220:GOTO 2020 

2030 1=VAL(i$):ON i GOTO 2050,2040 

2040 LOCATE#2,5,2:PRINT#2,CHR$(18); :INPUT# 

2 , " " , j $ 

2050 PRINT#n,j$;", dem "; 

2060 IF n>6 THEN 2090 
2070 e$="Datum":GOSUB 3300 
2080 CLS#2:INPUT#2,"",d$ 

2090 PRINT#n,d$;“, um "; 

2100 IF n>6 THEN 2180 
2110 CLS#2 

2120 PRINT#2,"<1> "u$ 

2130 PRINT#2,"<2 > ." 

2140 e$="Uhrze1t":GOSUB 3300 
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[ 577] 
[656] 
[569] 
[2295] 

[1351] 

[3432] 

[4382] 

[3212] 

[3576] 

[801] 

[2001 ] 

[1179] 

[983] 

[2566] 

[1005 ] 
[1642] 

[3983] 

[ 372 ] 

[2377] 

[1123] 

[2203] 

[2454] 

[3802] 

[2267] 

[2648] 

[2369] 

[3341] 

[1146] 

[2261] 

[2036] 

[3946] 

[3635] 
[3069] 

[3183] 

[2938] 

[3183] 

[1645] 

[1177] 

[2132] 

[2548] 

[1642] 

[889] 

[324] 

[372] 

[583] 

[809 ] 

[1773] 

[3105] 

[2700] 

[2503] 

[1208] 

[508] 

l1408] 

[1055] 

[1694] 

[506] 

[ 372] 

[ 577] 
[809] 

[1357] 
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2150 1 $=INKEY$: IF i$<>"l"AND i$<>“2"THEN G [3103] 
OSUB 3220:GOTO 2150 

2160 1=VAL(i$):ON 1 GOTO 2180,2170 t2537] 

2170 L0CATE#2,5,2:PRINT#2,CHR$(18);:INPUT# [2497] 
2."",u$ 

2180 PRINT#n,u$;" " ; [1161] 

2190 IF n>6 THEN 2270 [328] 

2200 CLS#2 [372] 

2210 PRINT#2,“<1> “0$ [589] 

2220 PRINT#2,"<2 > ." [809] 

2230 B$="Versammlung3ort":G0SUB 3300 [2573] 

2240 1 $=I NKEY$ : IF 1$<>"1"AN0 i$< > ,, 2“THEN G [3109] 
OSUB 3220:GOTO 2240 

2250 1=VAL(1 $):ON 1 GOTO 2270,2260 [2489] 

2260 LOCATE#2,5,2:PRINT#2,CHR$(18);:LINE I [3105] 
NPUT#2,"",0$ 

2270 PRINT#n,o$"." [1038] 


2280 IF n=8 THEN PRINT#n ELSE IF t=0 AND p [1489] 
$=" "THEN PRINT#n 

2290 IF a>0 THEN PRINT#n,r$(a)“, wir";ELSE [4637] 
PRINT#n,"W1r”; 

2300 PRINT#n," wjrden uns freuen, wenn "d$ [3639] 
(a) ; 

2310 PRINT#n," an unserer Zusammenkunft" [3708] 
2320 IF LOWER$(d$(a) )=“du"THEN a$="st":b$= [3905] 
"Dich“ELSE a$="n“ : b$="S1 e" 

2330 PRINT#n,"tei1 nehmen k!nnte"a$". Sollt [3150] 
e“a$" "d$(a) ; 

2340 PRINT#n," jedoch verhindert sein, blt [4364] 
ten wlr darum," 

2350 PRINT#n,"kur2 bei "t$" telefonisch ab [4550] 
Zusagen.“ 

2360 IF n=8 THEN PRINT#n:PRINT#n:PRINT#n E [2172] 
LSE IF t<3 THEN PRINT#n 


2370 PRINT#n,c$; [980] 

2380 IF n = 8 THEN PRINT#n:PRINT#n:PRINT#n:P [2968] 
RINT#n ELSE IF t<2 THEN PRINT#n 

2390 IF n>6 THEN 2500 [634] 

2400 CLS#2 [372] 

2410 PRINT#2, “ < 1 > Text ist so in Ordnung" [2391] 
2420 PRINT#2,"<2> PS.= zus{tziiche Bemerku [3610] 
ngen" 

2430 PRINT#2,”<3> Text hat Fehler = Neusta [2083] 
rt! " 

2440 e$="End-Kontrolle":GOSUB 3300 [1538] 

2450 1$=INKEY$:IF i$<>"l"AND i$<>"2"AND 1$ [4342] 
< > " 3"THEN GOSUB 3220:GOTO 2450 

2460 1=VAL(1 $):ON 1 GOTO 2540,2470,2490 [2773] 

2470 LOCATE#2,1,1:PRINT#2,CHR$(20)"PS.: [3183] 

:LINE INPUT#2,p$ 

24B0 PRINT#n,“PS.: "p$; M ";:ps= 1:GOTO 2400 [2559] 
2490 RUN [243] 

2500 IF n>6 AND ps = l THEN PRINT#n,"PS. : "p [3111] 
$;:GOTO 2740 ELSE 2740 

2510 1 [117] 

2520 'Ausgabe des Einladungstextes: [2812] 

2530 '- [1416] 

2540 MODE 2:n=7 [1139] 


2550 WINDOW#6,1,80,1,25:PAPER#6,1:PEN#6,0: [2132] 
CLS#6 

2560 WINDOW# 7,4,79,2,24;PAPER# 7,1:PEN# 7,0: [3094] 
CLS# 7 

2570 PLOT 315,320,0:DRAWR 312,0:DRAWR 0,-5 [3713] 
4:DRAWR-312,0:DRAWR 0,54 

2580 WINDOW#2,44,78,7,8:PAPER#2,1:PEN#2,0: t2394] 
CLS#2 

2590 PLOT 0,400,0:DRAWR 0,-399:0RAWR 639,0 [3081] 
:ORAWR 0,398 

2600 PLOTR-1,-398:DRAWR 0,398:DRAWR-637,0: [3106] 


DRAWR 0,-398 

2610 'RESTORE 3970: FOR a=l TO aa [1492] 

2620 FOR b=l TO 6 [1140] 

2630 READ a$(b,a) [544] 

2640 r$(a}=a$(1,a] [58] 

2650 d$(a)=a$(2,a) [440] 

2660 g$(a )=a$( 3,a] [1302] 

2670 n$(a)=a$(4,a) [374] 

2680 S$(a)=a$(5,a) [766] 

2690 p$(a)=a$(6,a) [994] 

2700 NEXT [350] 

2710 IF a=l THEN GOSUB 2910 [1817] 

2720 IF a<=pse THEN 2930 [1196] 
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2730 GOTO 1260 

2740 IF a=aa THEN 2750 ELSE 2760 
2750 CLS#2:PRINT#2,CHR$(7)" Dies ist die 
letzte Adresse!":FOR 1=0 TO 2000:NEXT 
2760 IF n=8 THEN GOSUB 3750:GOTO 2840 
2770 CLS#2 : PRINT#2 , " Drucken, mit <COPY 

>'•: PRINT#2 , " Weiter mit < ENTER> " 

2780 1$=INKEY$:IF 1$=""THEN 2780 

2790 1=ASC{1 $):IF i=&D THEN 2840 ELSE IF 1 

= &E0 THEN 2800 ELSE 2780 

2800 n=8 

2810 GOSUB 3700 

2820 IF a<=pse THEN 2930 

2830 GOTO 1260 

2840 n= 7 

2850 CLS#7:PLOT 315,320,0:DRAWR 312,0:DRAW 

R 0,-54:DRAWR-312,0:DRAWR 0,54 

2860 NEXT 

2870 GOTO 2610 

2880 * 

2890 'Ausgabe der Presse-Information: 

2900 '- 

2910 pse=l 
2920 RETURN 
2930 GOTO 1260 

2940 GOSUB 3770:PRINT#n,TAB(10)"Presse-Inf 
ormation” 

2950 IF n=8 THEN GOSUB 3770:PRINT#n,TAB(9) 

••-"ELSE 2970 

2960 PRINT#n:PRINT#n:PRINT#n 
2970 PRINT#n:GOSUB 3820 

2980 PRINT#n,"Sehr geehrte Damen und Herre 
n der Redaktion!":IF n=8 THEN PRINT#n 
2990 PRINT#n,"W1r fjhren am "j$", dem "d$" 

, eine Veranstaltung" 

3000 PRINT#n,"durch und mlchten Sie bitten 
, die folgende Information im" 

3010 IF n=8 THEN PRINT#n:PRINT#n ELSE PRIN 
T#n 

3020 GOSUB 3770:PRINT#n,TAB(B)“Veranstaltu 
ngs-Kalender” 

3030 GOSUB 3820:IF n = 8 THEN PRINT#n:PRINT# 
n ELSE IF g$="“THEN PRINT#n 
3040 IF g$(a)=“w"THEN PRINT#n,"der ";ELSE 
PRINT#n,"des 

3050 PRINT#n,n$(a)" zu ver!ffent 1ichen:":I 
F n = 8 THEN PRINT#n:PRINT#n 
3060 PRINT#n,STRINGS(70,); :PRINT#n 
3070 PRINT#n,d$;TAB(15)k$": "; 

3080 a$=RIGHT$(q$,LEN(q$)-10) 

3090 PRINT#n,a$; 

3100 IF z$< >""THEN PRINT#n:PRINT#n,TAB(15) 
g$‘‘, "ELSE PRINT#n , " , " 

3110 PRINT#n,TAB(15)u$" "o$"." 

3120 PRINT#n,TAB(15)"Interessenten sind he 
rzlich eingeladen!" 

3130 PRINT#n,STRING$(70,"-“):IF n=8 THEN P 
RINT#n:PRINT#n:PRINT#n 

3140 PRINT#n,"Vielen Dank im voraus! ";:I 
F n = 8 THEN PRINT#n:PRINT#n:PRINT#n 
3150 PRINT#n,“Mit freundlichem Gru" 

3160 CLS#2:PRINT#2,CHR$(7)" Presse - I 

nformation“:FOR i=0 TO 2000:NEXT 
3170 GOTO 2760 
3180 ' 

3190 'Unterprogramm: Blinkender Stern 

3200 '- 

3210 ON ERROR GOTO 3340 
3220 PRINT#1,"*"; 

3230 LOCATE#3,1,3 
3240 PRINT#3," 

3250 FOR 1=0 TO 200:NEXT 
3260 PRINT#1,CHR$(8);CHR$(16); 

3270 LOCATE#3,1,3 
3280 PRINT#3,SPC(2)“ " 

3290 FOR 1=0 TO 200:NEXT:RETURN 
3300 ebe$="Eingabe: "+e$ 

3310 LOCATE#3,2,1 

3320 PRINT#3,CHR$(18);e$ 

3330 PRINT#3,CHR$(18);" ";STRING$(LEN(e$), 
3340 RETURN 


[351] 

[1815] 

[4283] 

[ 1921] 
[5523] 

[1468] 
[2209] 

[225] 

[1013] 

[1196] 

[351] 

[238] 

[4396] 

[350] 
[345] 
[117] 
[2841] 

[1495] 
[366] 

[ 555 ] 

[351] 
[3711] 

[4153] 

[1555] 

[1609] 

[6760] 

[3540] 

[6845] 

[1430] 

[2863] 

[37941 

[3620] 

[4355] 

[3311] 
[ 1287] 
[834] 
[956] 
[4855] 

[1566] 

[5331] 

[4978] 

[5690] 

[2983] 

[4087] 

[387] 
[117] 
[3026] 
[1495] 
[1694] 
[ 747] 
[673] 
[642] 

[1496] 

[1838] 

[673] 

[738] 

[1791] 

[1653] 

[519] 

[1078 ] 
[2685 ] 

[555] 
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3350 

• 

tu?) 

3360 

'Unterprogramm: Deutscher Zeichensatz 

[4348] 

, druckergerecht 




[2653] 



3380 

SYMBOL AFTER 91 

[1213] 

3390 

SYMBOL 91,102,24,60,102,102,‘126,102,0 
' Ae 

[3041] 

3400 

SYMBOL 92,102,60,102,102,102,102,60,0 
Oe 

[2475] 

3410 

SYMBOL 93,102,0,102,102,102.102,60,0 

[ 2484] 


1 Ue 


3420 

SYMBOL 123,102,0,120,12,124,204,118,0 

[2699] 


1 ae 


3430 

SYMBOL 124,102,0,60,102,102,102,60,0 
‘ oe 

[2567] 

3440 

SYMBOL 125,102,0,102,102,102,102,62,0 

[2427] 


‘ ue 


3450 

SYMBOL 126,60,102,102,108,102,102,102 

[3064] 

, 12 

1 SS 


3460 

KEY DEF 17,1,123,91 

[678] 

3470 

KEY DEF 19, 1,125,93 

[ 1194] 

3480 

KEY DEF 22,1,92,96 

[ 11013 

3490 

KEY DEF 24,1,126,163 

[ 1286] 

3500 

KEY DEF 26,1,64,124 

[922 ] 

3510 

RETURN 

[555 ] 

3520 

1 

[117] 

3530 

'Unterprogramm: Druck-Befehle f}r Sch 

[5685] 

leider DMP 2000 (Epson-kompatibe1) 




[3447] 



3550 

PRINT#8,CHR$(27)CHR$(64) 

[3366] 


'Drucker initialisieren 


3560 

RETURN 

[ 555 ] 

3570 

PRINT #8,CHR$(24) 

[3180] 


'Drucker-Speieher loeschen 


3580 

RETURN 

[ 555] 

3590 

PRINT#8,CHR$(27);CHR$(51);CHR$(20); 

[ 3625] 


'Zellenabstand herabsetzen 


3600 

PRINT#8,CHR$(27);CHR$(83);CHR$(1); 

[4379] 


'Indexschrift ein 


3610 

PRINT#8,CHR$(15); 

[2663] 


1 Schmal sehrift ein 


3620 

RETURN 

[ 555] 

3630 

PRINT#8,CHR$(27);CHR$(84); 

[3616] 


'Indexschrift aus 


3640 

PRINT#8,CHR$(18); 

[1882] 


'Schmal sehr 1 ft aus 


3650 

RETURN 

[ 555 ] 

3660 

PRINT#8,CHR$(27);CHR$(50) ; 

[4199] 


'Zeilenabstand normalisieren 


3670 

RETURN 

[555 ] 

3680 

PRINT#B,CHR${27)"P"; 

[2879] 


1 Pica-Schrift ein 


3690 

RETURN 

[555] 

3700 

PRINT#8,CHR$(27)"M"; 

[2797] 


'Elite-Schr1 ft ein 


3710 

PRINT#8,CHR$(27)"1"CHR$(15) 

[2559] 


'linker Rand: 15 


3720 

RETURN 

[555] 

3730 

PRINT#B,CHR$(27)"-"CHR$(1);:RETURN 
'Unterstreichen ein 

[3874] 

3740 

PRINT#8,CHR$(27)"-"CHR$(0);:RETURN 

[3277] 


‘Unterstreichen aus 


3750 

PRINT#8,CHR$(12); 

[1101] 

3760 

RETURN 

[555] 

3770 

IF n = 8 THEN PRINT#B,CHR$(27)CHR$(87 )C 

[1684] 

HR$(1); ■ 


3780 

IF n=8 THEN RETURN 

[2709] 


'Breitschrlft Drucker ein 


3790 

POKE &B1C8,1:m= 19 2:r = 4 

[4464] 


'Breitschrift Bildschirm ein 


3800 

FOR x=&B1CF TO &B1D2:POKE x,m 

[2422] 

3810 

m=m/r:NEXT:RETURN 

[1141] 

3820 

IF n = 8 THEN PRINT#8,CHR$(27)CHR$(87 ) C 

[1688] 

-R$(0) ; 


3830 

IF n=8 THEN RETURN 

[2760] 


'Breitschrift Drucker aus 


3840 

POKE &B1CB,2:m=128 

[2917] 


1 Breitschr1ft Bildschirm aus 


3850 

FOR x=&BlCF TO &B1D2:POKE x,m 

[2422] 
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3860 

m=m/2:NEXT:RETURN 

[1555] 

3870 

PRINT#8,CHR$(27)CHR${71);:RETURN 

[3191] 


'Doppeldruck ein 


3880 

PRINT#8,CHR$(2 7)CHR$(72) ; :RETURN 

[2136] 


'Doppeldruck aus 


3890 


[117] 

3900 

’Unterprogramm: Individuelle Programm 

[3557] 

anpassung 




[2143] 



3920 

'Liste der Empf{nger: 

[1655] 

3930 


[1177] 

3940 

Schreiben Sie f}r jeden Empf{nger 

[4825] 

eine 

Zeile nach folgendem Muster: 


3950 

DATA Anrede,Du/Sie,Geschlecht m/w, 

[5520] 

Vorname Zuname,Str. Hausnr.,PLZ Ort 


3960 

1 

[117] 

3970 

DATA "",S1e,w,L]BECKER NACHRICHTEN,Po 

[4791] 

stfach 2238,2400 Ljbeck 1 


3980 

DATA Frau Krächt,Sie,w,Ange1a Kracht, 

[4546] 

Engelsgrube 32 Haus 11,2400 L]beck 


3990 

DATA Kai,Du,m,Kai Krächt,Enge1sgrube 

[4395] 

32 Haus 11,2400 L)beck 


4000 

1 

[117] 

4010 

'Vereinsinterne Angaben: 

[1759] 

4020 


E108 B] 

4030 

Schreiben Sie das Programm f}r Ihr 

[2433] 

en Verein um, 


4040 

' indem Sie die hier als Beispiel ve 

[3178] 

rwendeten Bezeichnungen 


4050 

durch eigene Angaben ersetzen. 

[1312] 

4060 

1 

[117] 

4070 

'Vereinsname f}r Briefkopf 1. Zeile ( 

[3712] 

hoechstens 34 Zeichen): 


4080 

v$="Schnei der-Computer-Club Norderbee 

[5425] 

4090 

‘Vereinsname f}r Briefkopf 2. Zeile ( 

[3056] 

hoechstens 68 Zeichen): 


4100 

w$="C1ub f)r CPC-, Joyce- und PC-User 

[3020] 

4110 

'Vereinsname-Kurzbezeichnung f}r Pres 

[4076] 

se-MIttei1ung: 


4120 

k$=''CPC-User-Cl ub Norderbeek" 

[2477] 

4130 

‘Vereinsinterne Anrede weiblich: 

[2539 ] 

4140 

x$="Computer-Freundin" 

[2239] 

4150 

' Vereinsinterne Anrede m{nnlich: 

[ 1919] 

4160 

y$="Computer-Freund" 

[1785] 

4170 

'Gru”formel am Briefende: 

[2311] 

4180 

c$="Alles Gute und keinen 'Read Error 

[3446] 

' wjnscht" 


4190 

'Kontaktperson/en (Telefon) f}r Mitgl 

[1669] 

ieder: 


4200 

t$=''Ilka (344097) oder Wolfgang (2839 

[2507] 

51) " 



4210 

'Absender-Anschrift: 

[1225] 

4220 

n$="Wolfgang Ehlers" 

[1326] 

4230 

f$=“Redder 57, 2480 Norderbeek" 

[2095 ] 

4240 

' 

[117] 

4250 

’H{ufig wiederkehrende Einladungs-Dat 

[4654] 


, 

[2085] 



4270 

Viele Gruppen treffen sich regelm{ 

[3407] 

19. 



4280 

immer am selben Wochentag um diese 

[3378] 

1be Uhrzeit 


4290 

am gleichen Ort. 

[ 639] 

4300 

Schreiben Sie diese Standards hier 

[3266] 

i ns 

Programm! 


4310 

Sie werden im Menue stets unter <1 

[1604] 

> gefjhrt. 


4320 

' 

[117] 

4330 

'Standard-Versammlungsart: 

[ 1709] 

4340 

q$="zu unserem User-Treff" 

[2678] 

4350 

'Standard-Wochentag: 

[2628 ] 

4360 

j$="Donnerstag" 

[1688] 

4370 

'Standard-Uhrzeit: 

[1535] 

4380 

u$="19.00 Uhr" 

[869] 

4390 

‘Standard-Versammlungsort: 

[1889 ] 

4400 

o$="bei Ilka Hansen, Am Markt 9" 

[2219 ] 

4410 

RETURN 

[ 555] 
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_ EI22 _RSX Teil 8 

Die letzten Befehle unserer Serie haben wir Ihnen ja schon vorigen Monat, ge¬ 
rade noch rechtzeitig zu Weihnachten, geliefert. Diesen Monat folgt jetzt 
auch der letzte Teil dieser Serie. 


Profi RSX hatte bis jetzt, aber auch nur 
bis heute, einen kleinen Nachteil (wie 
die meisten RSX- Erweiterungen auch) 
und zwar ist sie an feste Speicheradres¬ 
sen gebunden. Da es jedoch eher un¬ 
wahrscheinlich ist, daß Sie immer alle 
Befehle in Ihren Programmen gleich¬ 
zeitig verwenden, kann es dadurch zu 
einer nicht unerheblichen Speicher¬ 
platzverschwendung kommen. Neh¬ 
men wir einmal an, Sie brauchen nur 
eine Schnittstelle BASIC-Maschinen- 
sprache und ziehen hierzu die Befehle 
des Teiles 7 heran. Diese können 
selbstverständlich auch alleine geladen 
und benutzt werden. Sie liegen aller¬ 
dings im Bereich von &6E00 bis 
&71F0, so daß der Bereich &71F1 bis 
&A5FF zwar nicht belegt, jedoch 
“verloren“ ist, da BASIC-Programme 
nur unter HIMEM liegen können (in 
diesem Fall bis &6DFF). Praktischer 
wäre es, wenn Sie diesen Teil direkt 
unter &A5FF ablegen könnten, da Sie 
dann ca. 12 kBytes mehr Speicherplatz 
zur Verfügung hätten. Dieses setzt na¬ 
türlich voraus, daß der M-Code von 
Profi RSX frei verschiebbar ist, was er 
bis jetzt jedoch nicht ist (gilt grundsätz¬ 
lich für alle RSX- Erweiterungen, da 
hier intern mit festen Adressen pro¬ 
grammiert werden muß). Somit hätten 
Sie jetzt die 12 kBytes abschreiben 
können — wenn Sie sich dieses Heft 
nicht gekauft hätten. 

Sie haben es — und somit stellt sich Ih¬ 
nen dieses Problem nicht, da es für sol¬ 
che Problemfälle bei Profi RSX ein ge¬ 
sondertes Programm gibt. Hiermit 
können Sie sich eine Mischung aus al¬ 
len Profi RSX-Folgen zusammenstel¬ 
len (oder nur eine Folge, ganz wie Sie 
es wünschen) und diese an beliebige 
Speicheradressen im Bereich von 
&4ft)0 bis &A5FF laden. Somit läßt 
sich der Speicherplatz nicht nur opti¬ 
mal ausnutzen, es können auch even¬ 
tuelle Kollisionen bzw. Überschnei¬ 
dungen mit anderen MC-Programmen 
vermieden werden. Die Beschränkung 
auf den oben genannten Speicherbe¬ 
reich ist übrigens nicht durch Profi 
RSX verschuldet, sondern ist vom Be¬ 
triebssystem zu verantworten. Dieses 
schreibt leider vor, daß RSX-Erweite- 


rungen nur in den zentralen 32k 
(RAM) liegen dürfen (also von &4000 
bis &BFFF), wobei das Betriebssystem 
davon noch über 4k für sich beschlag¬ 
nahmt. 


Profi RSX-Relocalisator 


Kommen wir jetzt zu dem eigentlichen 
Programm. Hier können Sie in einem 
Auswahlmenü angeben, welche Teile 
von Profi RSX Sie benötigen. Danach 
erwartet das Programm von Ihnen noch 
die Angabe einer Speicheradresse, an 
die Profi RSX anzupassen ist, sowie ei¬ 
nen Namen, unter dem diese neue Ver¬ 
sion gespeichert werden soll. Alles 
weitere geschieht automatisch. Der Re- 
locator lädt die einzelnen BIN-Files 
von Diskette, bindet sie zu einem File 
zusammen, paßt diese an den Speicher¬ 
bereich an und sichert das File auf Dis¬ 
kette. Da dieses File später von BASIC 
aus geladen und initialisiert werden 
muß, wird als Service zusätzlich noch 
ein BASIC-Programm erzeugt, wel¬ 
ches ebenfalls unter dem gleichen Na¬ 
men gespeichert wird und aus dem her¬ 
vorgeht, welche Teile in dem BIN-File 
enthalten sind. Um die neue Profi 
RSX-Version dann zu laden, starten 
Sie einfach dieses BASIC-Programm 
durch 

RUN “name.BAS" 

Dieses Programm lädt dann den M- 
Code und initalisiert diesen ebenfalls, 
so daß Ihnen Profi RSX dann “arbeits¬ 
fertig“ zur Verfügung steht. Selbstver¬ 
ständlich können Sie das BASIC-Pro¬ 
gramm auch in Ihre eigenen Program¬ 
me einbinden. 


Was ist jetzt genau zu tun? 


Sie sollten zuerst das anschließend ab¬ 
gedruckte Programm abtippen und un¬ 
ter “PR-TEIL8.BAS“ abspeichern. 
Achten Sie unbedingt darauf, daß Ih¬ 
nen hier, wie bei den vorangegangenen 
Folgen, kein Fehler unterläuft, da die¬ 
ser unschöne Konsequenzen haben 
könnte. Als nächstes legen Sie sich eine 


Diskette mit den folgenden Files aus 
den letzten sieben Folgen an: 

G1-464.BIN 

G2-464.BIN 

S-464.BIN 

T-464.BIN 

SP-464.BIN 

SP2-464.BIN 

PR-TEIL7.BIN 

(Anm.: Arbeiten Sie mit einem Kasset¬ 
tenrekorder, so müssen sich die Files in 
umgekehrter Reihenfolge (also “PR- 
TEIL7.BIN“ zuerst) auf dem Band be¬ 
finden und das Band muß danach unbe¬ 
spielt sein.) Falls Sie nicht im Besitz al¬ 
ler Teile sind, dürfen Sie im Pro¬ 
gramm-Menü diese Folgen nicht aus¬ 
wählen! Die Besitzer der neueren 
Typen (664 & 6128) sollten logischer¬ 
weise die für Ihren Typ gültige Version 
anstelle der 464er-Version verwenden. 
Damit wären dann schon alle Vorberei¬ 
tungen getroffen, es ist lediglich darauf 
zu achten, daß auf der Diskette noch 
mindestens 16k frei sind. Sie können 
auch die Files der anderen Typen auf 
der Diskette haben; dieses macht 
nichts, da der Relocator automatisch 
die Files liest, die zu dem Rechner ge¬ 
hören, auf dem er gerade läuft. Wollen 
Sie eine Version für einen anderen 
CPC als den Ihrigen erstellen, so fügen 
Sie in den Relocator folgende Pro¬ 
grammzeile ein: 

215 ver$="464“ 

(oder eben 664 bzw. 6128) In der vor¬ 
liegenden Version des Relocators be¬ 
trägt die tiefste Speicheradresse, an die 
Profi RSX verschoben werden kann, 
ca. &4F00. Soll sie noch tiefer geladen 
werden, was in der Praxis kaum Vor¬ 
kommen dürfte, so müssen Sie im Pro¬ 
gramm alle REM-Zeilen etc. ent¬ 
fernen. 

Falls Sie mit allen Teilen von Profi 
RSX bzw. mit dem einen oder anderen, 
die an ihrer Standard-Adresse liegen 
können, arbeiten wollen, so sollten Sie 
das in der letzten Folge verwendete La¬ 
deprogramm benutzen, da es speicher¬ 
technisch einen kleinen Vorteil bringt 
und es auf allen drei CPC’s läuft. Sie 
müßten sonst dreimal den Relocator 
durchlaufen (für jeden CPC-Typ 
einmal). 

Was der Assembler aus den ca. 9000- 
10000 Programm-Zeilen (oder 175 
Seiten), aus denen der Assembler- Teil 
von Profi RSX besteht, gemacht hat, 
können Sie aus der Abbildung 1 erse¬ 
hen. Und zwar sind daraus genau 14 
kBytes (+ einem Byte) = 14337 Bytes 
geworden. Weiterhin geht aus der Ab¬ 
bildung die Verteilung der Bytes auf 
die einzelnen Teile sowie die standard¬ 
mäßige Speicherbelegung hervor. Be- 
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achten Sie, daß es dort eine Über¬ 
schneidung gibt, die jedoch gewollt ist 
und die bei richtiger Ladereihenfolge 
Speicherplatz spart. Zusätzlich ist zu 
beachten: 

a) Teil 6 ist nur mit Teil 5 zusammen 
lauffähig, während Teil 5 auch alleine 
läuft. 

b) Möchten Sie mit zwei Bildschirmen 
arbeiten (Verwaltung dafür in Teil 4 
enthalten), so dürfen Sie keinen M- 
Code im Bereich von &4000 bis 
&7FFF ablegen! 

c) Speicherbereiche für Sprite- und 
Icon-Matrixen sowie für die Fenster¬ 
verwaltung (in Teil 4) können auch un¬ 
terhalb von &4F00 bzw. über dem M- 
Code liegen. 

In einzelnen Fällen kann es besonders 
sinnvoll sein, wenn Sie Ihre fertig er¬ 
stellten Programme noch mit dem Pro¬ 
gramm “RSX-Compiler“ (siehe PC 
Int. 10/87) bearbeiten. Dieses trifft 
dann zu, wenn es auf maximale Ge¬ 
schwindigkeit ankommt und gleichzei¬ 
tig die Erweiterung voll geladen ist. 
Das Betriebssystem braucht dann u. U. 
sehr lange, bis es den richtigen Befehl 
aus den 133 vorhandenen herausgefun¬ 
den hat. Das ist aber vom BS vorgege¬ 
ben und läßt sich nicht vermeiden. 

Auf der DATABOX befindet sich (als 
kleiner Service zum Schluß) noch ein 
Demo-Programm. Legen Sie wie oben 
beschrieben eine Diskette mit den ent¬ 
sprechenden Files an und laden Profi 
RSX anschließend (alle Teile). Danach 
starten Sie die Demo durch 
»RUN“PRDEMO.BAS“ «. Hier sollten 
die Files der Folgen 1 bis 7 zwar auf 
der Diskette, jedoch nicht im Speicher 
sein. 

Zur besseren Übersicht finden Sie im 
Anschluß noch einmal alle Befehle mit 
Ihrer kompletten Syntax (allerdings 
ohne Erklärung) aufgelistet, damit Sie 
nicht ständig in sieben Heften blättern 
müssen. 

Das wär’s dann fast, falls Sie noch Fra¬ 
gen haben bzw. noch welche entstehen 
sollten, so schreiben Sie uns ruhig. Mit 
diesem Programm dürfte Profi RSX 
nun universell einsetzbar sein. Es bie¬ 
tet somit neben den leistungsfähigen 
Befehlen zusätzlich noch eine freie Re- 
localisierbarkeit, die Sie selbst bei den 
meisten käuflichen Erweiterungen 
nicht finden. Und 133 Befehle sollten 
in der Regel auch genügen. (Das einzi¬ 
ge, was jetzt noch denkbar wäre, ist 
eine relative Dateiverwaltung für die 
Floppy. Alle anderen Bereiche werden 
wahrscheinlich durch Profi RSX aus¬ 
reichend abgedeckt.) Wir hoffen, Ih¬ 


nen somit eine Erweiterung geliefert zu 
haben, die Ihnen zusammen mit dem 
Schneider- BASIC (oder einer anderen 
Programmiersprache, insbesondere 
Assembler) eine komfortable Program¬ 
mierung Ihres CPC’s ermöglicht und 


zudem Ihre Programme immer ein we¬ 
nig besser werden läßt, als wenn Sie 
ohne Erweiterung liefen. 

Diesmal heißt es nicht “Fortsetzung 
folgt — in einem Monat“ sondern 
ENDE (K. Kremer) 


Übersicht über alle Befehle der RSX-Befehlserweiterung 
_Profi-RSX (Versionen 1.1/1.2/1.3)_ 


Teil 1: Grafik-Befehle 

1. QUADRAT (, X-Koordinate, Y- 
Koordinate), Kantenlänge (,Farbe) 

2. A.QUADRAT (, X-Koordinate, Y- 
Koordinate), Kantenlänge (, 

Farbe) 

3. RECHTECK (, X-Koordinate, Y- 
Koordinate), X-, Y-Kantenlänge 
(.Farbe) 

4. A.RECHTECK wie Pos. 3 

5. CIRCLE (, X-, Y-Koordinate), Ra¬ 
dius (, Farbe) 

6. GDISC wie Pos. 5 

7. ELLIPSE (, X-, Y-Koord.), X-, Y- 
Radius (, Farbe) 

8. A.ELLIPSE wie Pos. 7 

9. VIELECK (, X-, Y-Koord.), X-, 
Y-Radius, Grad, Eckenzahl 
(.Farbe) 

10. A.V.GENAU, X-, Y-Genauigkeit 

11. A.VIELECK wie Pos. 9 

12. FORCE (keine Parameter) 

13. AND (keine Parameter) 

14. XOR (keine Parameter) 

15. OR (keine Parameter) 

16. INVERT (, Text-Window-Nr.) 

(, Maske) 


17. FRAME (keine Parameter) 

Teil 2 : Fenster- und Kopier-Be- 
fehle 

18. RGW (, Grafik-Window NR. (0-7)) 

19. ORIGIN, G.W.-Nr. (, X-, Y- Ori¬ 
gin) (, linke, rechte, obere, untere 
Ecke des Fensters) 

20. GWINDOW, G.W.-Nr. 

21. CLG (, G.W.-Nr.) (, Farbstift- Nr.) 

22. GPEN (, G.W.-Nr.), INK-Nummer 
(0-15) 

23. GPAPER wie Pos. 22 

24. WLAENGE, Fenstemummer 
(0-7), Adresse Integer Variable 

25. WINDOW, Fenstemummer 

26. W.SET, Fenstemr., untere Spei¬ 
cherstelle, Länge des benötigten 
Speicherbereiches 

27. SCREEN, Bildschirmnummer (, 
Flag (1 oder 0) für Sicht- oder Ün- 
sichtbar) 

28. SWAP.ON (keine Parameter) 

29. SWAP.OFF (keine Parameter) 

30. COPY (, X-, Y-Koordinate Aus¬ 
gangsrechteck), Anzahl der Ko¬ 
pierpunkte in X-, Y-Richtung, X- 
,Y-Koordinate Zielrechteck 


Folgende Speicherbereiche werden von den einzelnen 

Teilen von Profi RSX belegt: 


Teil 

von 

bis 

Lange 

(in 3ytes) 

Graphikl-Befehle 

0) 

&9FA0 

SA5FD 

1630 


Graphik2-8efehle 

(2) 

& 9 6 B 0 

S9F92 

2275 


BiIdschirm-Befehle 

(3) 

&8F90 

S96AC 

1821 


Text-Befehle 

(4) 

&87E0 

S8F90 

1969 


ICON/Sprite 

(5) 

&800Q 

S88A5 

2214 


ICON/Sprite (2)-B. 

(6) 

S 7 200 

S7F5A 

3419 

zus.: 

Allgemeine Befehle 

(7) 

& 6 £00 

&71F0 

1009 

14337 Bytes 


Die Bereiche über &A5FD sowie unter &6E00 sind nicht durch 
Profi RSX belegt, sofern sie nicht als Sprite/Icon-Speicher 
definiert worden sind oder der zweite Bildschirm (von &400Q bis 
S7.FEF) aktiviert ist. 

In der Standard-Form belegt Profi RSX somit den Bereich von 
&6E00 bis einschl. 1A5FD. 

Mit Hilfe des Profi RSX-Relocator können alle Teile in beliebige 
Speicherbereiche ( ”b &4FQQ bis ca. &A5FF ) | geladen werden! 
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31. a) ZOOM, X-, Y-Faktor oder 

b) ZOOM (, X-, Y-Faktor), X-, Y- 
Koordinate Ausgangsfeld, Kopier¬ 
punkte in X-, Y-Richtung, X-, Y- 
Koordinate Zielfeld 

32. SWAP wie Pos. 30 

33. SPIEGEL, X-Schalter EIN/AUS, 

Y- Schalter EIN (1) / AUS (0) 

34. LASSO, Schalter EIN (1)/AUS (0) 
(,Farbe) 

35. COPYSCR wie bei ’COPY’ + 
Nummer des Ausgangsbildschir¬ 
mes als letzten Parameter oder 
COPYSCR, Nummer des Aus¬ 
gangsbildschirmes 

36. ZOOMSCR wie bei ’ZOOM’ + 
Nummer des Ausgangsbild¬ 
schirmes 

37. SWAPSCR wie bei ’SWAP’ + 
Nummer des Ausgangsbild¬ 
schirmes 

38. TCOPY, Zeile-, Spalte- Ausgangs¬ 
feld, Zeile-, Spalte- Zielfeld, X-, 
Y-Ausdehnung in Zeichen 

39. TSWAP wie bei Pos. 38 

40. TSCOPY, Zeile-, Spalte- Aus¬ 
gangsfeld, Zeile-, Spalte- Zielfeld, 
X-, Y-Ausdehnung, Nummer des 
Ausgangsbildschirms 

41. SSWAP wie bei Pos. 40 

Teil 3: Bildschirm-Steuerung 

42. BM2 (keine Parameter) 

43. BMI (keine Parameter) 

44. MODE, Farbtabellen-Nr., Mode 

45. BORDER, Farbtabellen-Nr., 1. 
Farbe (, 2. Farbe) 

46. INK, Farbtabellen-Nr., Stift- Nr., 

1. Farbe (, 2. Farbe) 

47. BEREICH, Bereich-Nr., Farbtabel¬ 
len-Nr. 

48. RI (keine Parameter) 

49. RM (keine Parameter) 

50. RB (keine Parameter) 

51. SYNC (keine Parameter) 

52. BON (keine Parameter) 

53. RIN (keine Parameter) 

54. DEL (keine Parameter) 

55. GMODE, Mode 

Teil 4: Textbefehle 

56. INVERS (keine Parameter) 

57. SCROLL.U, Fenstemummer, An¬ 
zahl der zu scrollenden Reihen 

(, Farbe für die neuen Zeilen) 

58. SCROLL.D wie bei Pos. 57 

59. CROLL, Offset 

60. CAPS, EIN (1) / AUS (0) 

61. SHIFT wie bei Pos. 60 

62. TRANSP., Schalter für EIN bzw. 
AUS 

63. HOME (, Fenter-Nr.) 

64. CURSOR (, Systemschalter), An¬ 
wenderschalter 

65. BELL (keine Parameter) 

66. WAITKEY (keine Parameter) 

67. DIN (keine Parameter) 


68. ASCII (keine Parameter) 

69. TSPEED (keine Parameter) 

70. SCHRIFT, X-, Y- Vergrößerungs¬ 
faktor 

71. S.ON (keine Parameter) 

72. T.OFF (keine Parameter) 

73. Z.EDIT, Zeichen-Nr., Vergrösse- 
rung (,Adressen von 8 Integer-Va¬ 
riablen) 

74. PRINT, Adresse Text-String 

75. READ, Adresse Integer-Variable 

76. READTXT, Adresse Text-String 

77. CHGSTR, Adresse l.String, 
Adresse 2. String 

78. CH AR. ROT, Parameter 

79. LIGHT (keine Parameter) 

80. FETT (keine Parameter) 

81. UNT. (keine Parameter) 

82. NORMAL (keine Parameter) 

Tfeil 5: ICON & 'SPRITE* 

Befehle (Teil 1) 

83. SP. MEMORY, oberste Speicher¬ 
stelle, unterste Speicherstelle 

84. SP.DEF, S-Nr., X-, Y-Ausmaße, 
Mode, Adresse Integer-Variable 

85. SPRITE, S-Nr., X-, Y-Koordinate, 
weitere Parameter 

86. SP.ON, S-Nummer, Adresse Inte¬ 
ger-Variable 

87. SP.OFF, S-NR., Adresse Integer 
Variable 

88. SP.DELETE, S-Nr., Adresse Inte¬ 
ger Variable 

89. SP. PRIO, S-Nr., Priorität 

90. SP.KOL, EIN/AUS 

91. SP.GOTO, Zeilennummer 
(0-65535) 

92. SP.GOSUB, Zeilennummer 

93. SP. RETURN (keine Parameter) 

94. SP.FLAG, Adresse einer Variablen 

95. SP.LET, 1. S-Nr., 2. S-Nr., Adres¬ 
se Integer Variable 

96. SP.PUT, S-Nr., X-Position (0- 
max. 159/319/639), Y-Position (0- 
199) (, Darstellungs-Mode) 

97. SP.GET, S-Nr. 

98. SP.MOVE, S-Nr., X-, Y-Pösition 
(, D.-Mode) 

99. SP.MOVER, S-Nr., X-, Y.Abstand 
(, D.-Mode) 

100. SP.MOVER2, Nummer des zu ent¬ 
fernenden Sprite, Nummer des dar¬ 
zustellenden S., X-, Y-Offset 

(, D.-Mode) 

101. SP. FRAME, EIN (1) / AUS (0) 

102. SP.POS, S-NR., Adresse 
l.Variable, Adresse 2.Variable 

103. SP.GET2, S-Nr., X-, Y-Position 

Teil 6: ICON & 'SPRITE* 

Befehle (Teil 2) 

104. SP.I.ON (keine Parameter) 

105. SP.I.OFF (keine Parameter) 

106. SP.I.K.ON, Kanal-Nr. (0-7 oder 
>=256) 

107. SP.I.K.OFF, Kanal-Nr. (0-7 oder 
> =256) 


108. SP.I.FOLGE, Kanal-Nr. (0-7), bis 
zu acht Sprite Nummern 

109. SP.I.ABLAUF, Kanal-Nr. (0-7), 

1. Zähler (Zahl der Durchläufe (1- 
255)), 2.Zähler (Zahl der Bewe¬ 
gungen pro Durchlauf (1-255)), X-, 
Y-Anfangsposition, 1. X-, Y-Verän- 
derung (, 2. X-, Y- Veränderung) 

110. SP.I.KAN AL, Kanal-Nr. (0-7), 
Adresse Integer Variable 

111. SP.I.MODE, Kanal-Nr. (0-7), Dar¬ 
stellungsmode (0-4) 

112. SP.I.PRIO, Kanal-Nr. (0-7), Priori¬ 
tät (0 oder 1) 

113. SP.I.SYNC, Wert fürs Einblenden, 
Wert fürs Ausblenden 

114. SP.EDIT, Sprite-Nummer, Vergrö¬ 
ßerung 

115. SP. SAVE (, 1. Sp.-Nummer) 

(, 2. Sp.-Nr.), Adresse des Namens 

116. SP.LOAD (, Sp.-Nummer), Adres¬ 
se des Namens, Adresse Zwischen¬ 
speicher (2048 Bytes lang) 

Teil 7: Allgemeine Befehle 

117. RAM, neue Konfiguration (0-7) 

118. GETRAM, Adresse Integer-Va¬ 
riable 

119. RAMFILL, Anfang (Speichera¬ 
dresse), Länge (in Bytes), Wert 
(0-255) 

120. RAMCLEAR, Anfang (Speicher¬ 
adresse), Länge (in Bytes) 

121. RESET (keine Parameter) 

122. PEEK, Adresse (0-65536), RAM/ 
ROM-State (0-255), Adresse 
Integer- Variable 

123. PEEK16, Adresse (0-65536) 

(, RAM/ ROM-State (0-255)), 
Adresse Integer-Variable 

124. POKE16, Adresse (0-65536), 16- 
Bit-Wert (0-65536) 

125. FIND, Anfang (Speichernde), Län¬ 
ge, Adresse String, Adresse Inte¬ 
ger-Variable 

126. CALL1, Adresse, RAM/ ROM-Sta- 
tus (, A, F, HL, DE, BC, IX) 

127. CALL2, Adresse, RAM/ ROM- 
State, Adressen von 6 Integer-Varia¬ 
blen 

128. CALL3, Adresse, RAM/ ROM-Sta¬ 
te, A, F, HL, DE, BC, IX, Adres¬ 
sen von 6 Integer-Variablen 

129. CWRITE, Schreibgeschwindigkeit 
für Kassette (0, 1, oder 2) 

130. DISPRO, EIN- (1) oder AUS (0) 

131. DISK.M, EIN- (1) oder AUS (0) 

132. DISK.ST, Laufwerksnummer (0 
oder 1), Adresse Integer-Variable 

133. DISK.P, Wartezeit (Standard: 50), 
Nachlaufzeit (250), Wartezeit für 
Spurwechsel (3087), Head Unload 
Time (1), Head Load Time (3) 


36 PC T88 




Serie—i 


für 464-664-6128 

I 



10 '////////////////////////////////////// 
///////// 

20 ' / 


30 ' / P 


40 ' / 


o f 1 


R S X - Tel 1 8 


50 • ////////////////////////////////////// 
///////// 

60 ' / 

/ 

/ Relocatorprogramm fuer die Folgen 1 
7 --/ 

/ 

/ 


70 ' 
bl s 
80 ' 

90 '/ fuer Versionen 1.1/2/3 (fuer Schneid 
er/-/ 

100 '/ Amstrad CPC 464/664/6128) - 

- / 

110 1 / 

/ 

120 '/ Copyright (c) 10/1987 by Klaus Krem 

er-/ 

130 ’ / 

/ 

140 1 ///////////////////////////////////// 

///////// 

150 ‘ 

160 DEFREAL a-z 

170 vers1on*=PEEK(&BD71) 

180 ' 

190 IF vers1on*=&E8 THEN ver$="464" 

200 IF versionX=&55 THEN ver$="664" 

210 IF versi onJ6=&14 THEN ver$="6128" 

220 ‘ 

230 MODE 1:PEN 1: INK 1,24:INK 0,0:BORDER 
0 

240 DIM 1%(7):1X(1)=1630:1X(2)=2275:1X(3)= 
1821:1X(4)=1969:1X(5)=2214:1X(6)=3419:1X(7 
) = 1009 
250 ' 

260 L0CATE 10,2:PEN 2:PRINT"Profi RSX-RelO 
cator" 

270 L0CATE 1,4:PEN 3:PRINT"B1tte geben Sie 
nachfolgend an, ob Sie den jeweiligen Te 
11 von Profi RSX be- noetlgen oder nicht 
(mit 'J‘ oder 1 n‘ ) ! ":PEN 1 
280 DIM f$(7) 

290 L0CATE 1,9:INPUT "Teil 1 (Graphikl-Bef 
ehle) ";f$(1):f$(1)=L0WER$(f$(1)):IF f$(l 
)="j" OR f$(1)*"n“ THEN 300 ELSE PRINT CHR 
S(7)jCHR$(18):GOTO 290 
300 INPUT "Teil 2 


1);CHR$(18);:G0T0 300 
310 INPUT "Teil 3 (Bl‘ 


1);CHR$(18);:GOTO 310 
320 INPUT "Teil 4 (Te> 


1);CHR$(1B);:G0T0 320 
330 INPUT "Teil 5 (Spi 


1)jCHR$(18);:GOTO 330 


1);CHR$(18);:G0T0 340 
350 INPUT "Tel 1 7 (All 


1);CHR$(18);:GOTO 350 
360 ' 


(2301] 

( 200 ] 

[ 1888] 

( 200 ] 

[2301] 

[ 200 ] 

[4865] 

[ 200 ] 

[2502] 

[2821] 

[ 200 ] 

(3776) 

[ 200 ] 

[ 2120 ] 

[117] 

[795] 

[1196] 

[117] 

[1660] 

[2333] 

[2478] 

[117] 

[2932] 

[4495] 


[117] 
[3502] 

[11156] 


[378] 

[7516] 


ph 1 k2 

-Befeh 

1 e 

) "; 

f$ 

[8838] 

) : IF 

f $ (2 ) = 

"j 

" OR 

f$ 



PRINT 

CHR$ ( 

7) 

; CHR$ 

(1 



dschi 

rm-Bef 

eh 

1 e ) " ; 

f$ 

(78 

16] 

) : IF 

f $ ( 3 ) = 

"J 

" OR 

f$ 



PRINT 

CHR$ ( 

7) 

; CHR$ 

(1 



t-Bef 

ehl e) 


- ; 

f$ 

[92 

72] 

) :IF 

f $ ( 4) = 

" j 

" or’ 

f$ 



PRINT 

CHR$ ( 

7) 

; CHR$ 

(1 



ita-Befehle 

( 

l))"; 

f$ 

[72 

37] 

) : IF 

f$(5 ) = 

"j 

" OR 

f$ 



PRINT 

CHR$ ( 

7) 

; CHR$ 

(1 



1te-Befehle 

( 

2) )" ; 

f$ 

[79 

00] 

):IF 

f $ ( 6) = 

" j 

" OR 

f$ 



PRINT 

CHR$ ( 

7) 

; CHR$ 

(1 



gern. - 

Befehl 

e) 


f$ 

( 72 

08] 

):IF 

f $ ( 7) = 

“j 

" or' 

f$ 



PRINT 

CHR$ ( 

7) 

; CHR$ 

(1 




[117] 


Listing Profi-RSX 


VERSAND 

vortex-Versand - Falterstraße * 7101 Flein 



SUPER PREISWERT UND 



DAS ANGEBOT 


FÜR ALLE SCHNE1DER- 
CPC-BESITZER: 

Vtiajstar 

Für Schneider CPC 464 und 664** 

Best.-Nr.: 50101 (3"-Disc.) 

Best.-Nr.: 50102 (5Vi"-Disc im vortex-Format) 


Für Schneider CPC 6128 
Best.-Nr: 50104 (3"-Disc.) 



Für Schneider CPC 464 und 664** 

Best-Nr.: 50301 (3"-Dise.) 

Best-Nr: 50302 <5 1 /i"-Disc. im vortex-Format) 


Für Schneider CPC 6128 
Best.-Nr.: 50304 <3"-Disc.) 

MICROSOFT® 

MUUIPLAN 


Für Schneider CPC 464 und 664** 

Best-Nr.: 50201 (3"-0isc) 

Best.-Nr: 50202 (5X"-0isc. im vortex-format) 


Für Schneider CPC 6128 

Best.-Nr.: 50204 (3"-Disc.) 

• dBase und Multiplan für Schneider CPC 464 und 664 Bl lauf- 
tahig mll SpeichererweSanmg auf 128 KB. 

"Der Standard-Speicherplatz bei CPC 464 und 664 erlaubt 
ohne Speichererweitenmg Blockverschiebe-Operationen nur 
bedingt und Simultan-Dmcken gar nicht 


SENSATIONSPREIS 

JE PROGRAMM DM 129,- 
2 PROGRAMME DM 199,- 





VOM VORTEX-VERSAND 


Weitere Angebote nächste Seite und 
im großen vortex-Versand-Katalog. 
Gleich umblättern und bestellen. 



























I—Serie 


370 1a#ngeX=0:FOR 1%=1 TO 7:IF f$(1X)="j" 
THEN 1aengeX=1aengeX+1X(IX) ELSE 380 
380 NEXT 

390 LOCATE 1,18:PEN 3 : PRINT*'Benoet 1 gter Sp 
1cherplat2:";:PEN 2:PRINT 1aengeX;"Bytes“ 
: PEN 1 

400 LOCATE 1,20:PEN 1:PRINT"An welche Spei 
cheradresse sollen die Profi RSX-Telle 
geladen werden (max. Adr. “;:PEN 3:PRIN 
T "4“ ;HEX$(42495-1aengeX);:PEN 1:PRINT", m 
ln. Adr. ";:PEN 3:PRINT"44F00)";:PEN l:INP 
UT" ” ;1ad 

410 IF lad>(42495-laengeX) OR 1ad<44F00 TH 
EN PRINT CHR$(7) ;CHR$C 11) ;CHR$( 18)-.GOTO 40 
0 

420 MODE 1:LOCATE 10,2:PEN 2:PRINT"Profi R 
SX-Relocator" 

430 LOCATE 1,4:PEN 1:PRINT“Unter welchem N 
amen soll diese Version (ab Adresse &"+HE 
X$(lad)+") gespeichert werden":PRINT”(max. 

4 Stellen)?":PEN 3:PRINT CHR$(18)j:INPUT 
name$ 

440 IF LEN(name$)>4 THEN PRINT CHR$(7):GOT 
0 430 

450 PEN 3:LOCATE 1,10:PRINT"Bitte legen Si 
die Diskette mit den BIN-Flles von Profi 
RSX ein und betaetigen Sie anschliessend 
eine Taste." 

460 IF INKEY$="" THEN 460 
470 * 

480 '- 


490 * 

500 BIN-Flles laden - 
510 1 

520 MEMORY 1 ad-1:1ad2=1 ad:DIM ca(7,l):REST 
ORE 540 

530 FOR 1X=1 TO 7:READ ca(i % ,0):NEXT 

540 DATA 40864,38576,36752,34784,32768,291 

84,28160 

550 RESTORE 600 

560 IF f$(7 ) = " j" THEN a$="pr-tei17.BIN":LO 
AD a$,lad2:ca(7,l)=lad2:1ad2=lad2+lX(7) 

570 FOR 1%=8 TO 1 STEP -1 

580 READ a$:IF f$(1X) = "j'’ THEN a$=a$+"-" + v 
er$+".bin":LOAD a$,1ad2:ca(IX,1) = 1ad2:1ad2 
=lad2+lX(IX) 

590 NEXT 

600 DATA "sp2“,"sp",“t","s","g2","gl" 

610 ' 

620 PRINT:PEN 2:PRINT"E1nen Moment bitte . 

":PEN 1 
630 ' 

640 •- 


650 1 

660 '- M-Code aendern - 
670 1 

680 RESTORE 1560 

690 FOR 1X=1 TO 7 

700 d1f=ca(1X,l)-ca(iX,0) 

710 IF f$(1X)="j“ THEN 750 
720 READ ad:IF ad<>0 THEN 720 
730 READ ad:IF ad<>0 THEN 730 ELSE 920 
740 * 

750 READ adl:IF adl = 0 THEN B40 

760 IF adl+dif<(-32768) THEN difl=dif*(-1) 

:f1=1 ELSE f1=0:difl=d1f 

770 ad=adl+l+d1f1:IF fl=l THEN ad=adl+l-(- 
65536+dlfl) 

780 1nh=PEEK(ad+l)*256+PEEK(ad):IF inh>=45 
056 OR 1nh=0 THEN 750 
790 1nh2=inh:1nh=1nh+d1f 

800 IF Inh+dlf<(-32768) THEN inh=1nh2-(-65 
536+(d1f*(-l))) 

810 xl=FIX(Inh/256):P0KE ad,(inh-xl*256 ) :P 
OKE ad+1,xl 
820 GOTO 750 
830 1 

840 READ adl:IF adl=0 THEN 920 

850 IF adl+dif<(-32768) THEN difl=dif*(-1) 


Usting Profi-RSX 


[4601] 

[350] 

[7171] 


[ 16085] 


[4184] 

[36571 
[11885 ] 

[3228] 

[10512] 


[852] 
[117] 
[3447] 

[117] 

[2039] 

[117] 

[2082] 

[1390] 
[1679] 

[ 739] 
[3621] 

[ 1813] 
[4616] 


[350] 

[2320] 

[117] 

[3124] 

[117] 

[3447] 

[117] 

[1240] 

[117] 

[ 735] 

[714] 

[1747] 

[645] 

[1321] 

[1778] 

[117] 

[1360] 

[3800] 

[2923] 

[3508] 

[1329] 

[2437] 

[3337] 

[423] 
[117] 
[1408] 
[3800] 


:f1=1 ELSE fl=0:d1fl=dif 

860 ad=adl+2+dif1:IF fl=l THEN ad=adl+2-(- 
65536+d1f1) 

870 inh=PEEK(ad+l)*256+PEEK(ad):IF inh>=45 
056 OR 1nh=0 THEN 040 
880 inh2=inh:1nh=1nh+dif 

890 IF 1nh+dif<(-32768) THEN inh=inh2-(-65 
536+(d1f*(-l))) 

900 xl=FIX(Inh/256):POKE ad , (inh-xl*256):P 

OKE ad+1,xl 

910 GOTO 840 

920 NEXT 

930 ' 

940 IF f$(6 ) < > " j " THEN 1100 
950 IF f$(5)<>"j" THEN PRINT"Tel 1 6 Ist nu 
r zusammen mit Teil 5 1 auffaehig!“:END 
960 RESTORE 1060 

970 dif=ca(6,l)-ca(6,0):dif2=ca(5,1)-ca(5, 
0) 

980 FOR 1X=1 TO 3 

990 READ adl:IF adl+dif<(-32768) THEN dlfl 
=d1f*[-l):f1=1 ELSE f1=0:difl=dif 
1000 ad=adl+d1f1:IF fl=l THEN ad=adl-(-655 
36+dlf1) 

1010 1nh=PEEK(ad+1)*256+PEEK(ad):IF inh>=4 
5056 OR inh=0 THEN 990 
1020 1nh2=1nh:1nh=inh+dif2 

1030 IF 1nh+d1f2<(-32768) THEN inh=inh2-(- 
65536+d1f2*(-l)) 

1040 xl=FIX(1nh/256):POKE ad,(inh-xl*256): 
POKE ad+1,xl 
1050 NEXT 

1060 DATA &7S32,&783d,&7856 
1070 ‘ 

1080 ’- 


1090 1 

1100 namel$=name$+ver$ 

1110 PRINT:PRINT:PRINT"Der M-Code wird unt 
er "+name$+ver$+".BIN abge-":PRINT"speiche 
rt. Er kann mit dem unter dem gleichen 
Namen gespeicherten Ladepro-":PRINT"gramm 
(.BAS) jederzeit geladen und Ini- talisler 
t werden." 

1120 * 

1130 name2$=name$+ver$+".bas" 

1140 CLOSEOUT:CLOSEIN:OPENOUT name2$ 

1150 GOSUB 1320 
1160 * 

1170 FOR iX=l TO 7 

1180 IF f$<1X)="j" THEN PRINT#9,":call &" + 
HEX$(ca(IX,1)); 

1190 NEXT:PRINT#9 

1200 PRINT#9,"170 'Folgende Teile sind ent 
halten: "; 

1210 FOR 1X=1 TO 7 

1220 IF f$(1X)="j" THEN PRINT#9,"Te11 "+CH 
R$(48+1X)+“,"; 


1230 

NEXT 





1240 

PRINT49 

CLOSEOUT 



1250 

* 





1260 

SAVE namel$ 

b, 1 ad 

, 1aengeX+1 


1270 

1280 

1290 

ENO 











1310 

1320 






PRINT49 

"20 

. .. 



1330 

1340 

PRINT#9 

"30 

'Ladeprogramm fuer 

Profi 

RSX" 

1350 

PRINTS9 

"40 

. .. 



1360 

PRINT#9 

"50 

' (c) 

1987 by Klaus 

Kremer 

1370 

1380 

PRINT#9 

"60 

. .. 



PRINT#9 

"80 

. .. 



1390 

1400 

PRINT49 

"90 

mode 

1:border 0:1nk 

0,0: i 


Listing Profl-HSX 


[1552] 

[3538] 

[1329 ] 
[2437] 

[3337] 

[332] 

[350] 

[117] 

[1535] 
[5708] 

[723] 

[2033] 

[718] 

[3799] 

[3312] 

[3556] 

t1336] 
[1779] 

[3337] 

[350] 

[499] 

[117] 

[3336] 

[117] 
[1143] 
[178631 


[117] 

[1085] 

[2480] 

[962] 

[117] 

[714] 

[2310] 

[845] 

[3875] 

[714] 

[2067] 

[350] 

[1049] 

[117] 

[3162] 

[117] 

[ 110 ] 

[117] 

[3336] 

[117] 

[2151] 

[ 1009] 
[2728] 

[849] 

[3176] 

[814] 

[2500] 

[900] 

[3657] 


38 PC 188 

















Serie—1 


n K 1,26:pen 1" 

1410 PRINT#9 , " 100 locate 11, a : ? *' +CHR$ {34) + [4340] 
"Profi RS X"+CHR$(34) 

1420 PRINT#9,"110 pen 3:locate 4,14:?"+CHR [5567] 
$(34)+"w1rd geladen - bitte warten Sie"+CH 
R$(34) 


1430 PRINT#9,”120 '" [1028] 

1440 PRINT#9,"130 memory”;1 ad-1 [2252] 

1450 PRINT#9,"140 1oad"+CHR$(34)+name$+ver [2300] 
$+".b1n“+CHR$(34) 

1460 PRINT#9,”150 '" [820] 

1470 PRINT*9,"160 "; [865] 

14B0 RETURN [555] 

1490 ' [117] 

1500 '- [3336] 


1510 ' [117] 

1520 '***** DATAs Teil 1 ***** [1131] 

1530 ' [117] 

1540 3-Byte-Befehle - [854] 

1550 1 [117] 


1560 DATA &9fa0,&9fa3,&9fab,&9fb2 1 &9fb5,&9 [2663] 
fbe.igfbb.igfbe.&Sfcl.&gfcA,8.9 fc 7 

1570 DATA &9fca, &9fcd , &9fd0,49fd3 , &9fd6,8.9 [3243] 
fd9,8.9fdc, &9fdf ,&9fe2 ,&a04f , &a06c 

1580 DATA &a074, &a08f , 8.a09a,&aOeO , 8.al25,8.a [3443] 
13c,8.al6a,lal8f,8.al95,8.alaf 1 8.albc 

1590 DATA &alc4,&ald3,8.ale0,&ale8,&alee,&a [3351] 
lf 6,&alfd , &a20e,&a214,&a217,8.a21b 

1600 DATA &a2le,&a2 2 6,&a2 2 9,&a2 30,&a23a,&a [2649] 
2 3d,&a240,&a24a,4a24f,&a2 5d,&a2 64 

1610 DATA &a2 69,8<a270, S.a298,8.a29b,8ia2a3,8ia [3541] 
2a6, 8 >a 2 ad , &a2b6 , &a 2 dO , 8.a2d8 , &a2e3 

1620 DATA 8.a2e7 , &a2ea,&a2ed, &a2 f 0,8>a2f 3,8<a [2491] 
2f6,&a2 f b, &a301 

1630 DATA &a304,8>a312,8.a32a,&a32d,&a330, &a [3943] 
333,8.a339 ,&a33f , 8>a348,8.a351, &a355 

1640 DATA 8.a35b, & a364,&a369,&a36d,8.a379,8.a [3797] 
380 , &a385,8.a38c , &a3b5,8.a3bd , &a3cc 

1650 DATA 4a3d4,&a3el,8.a3e9,8.a3ec,8.a3ef,8.a [3816] 
3f 9 , S.a400,8.a40 7 , &a43c , 8.a448,&a4f 1 

1660 DATA 4a518,ia527,8.a52f ,8.a538,8.a53b,8.a [3486] 
541,&a544,&a54b,&a551,&a568,&a56e 

1670 DATA &a576,&a579,&a57f ,8.a592,8.a599,8.a [4388] 
5a2,&a5a8,&a5d8,&a5e3,8.a5e9,0 


1680 1 [117] 

1690 4-Byte-Befehle - [911] 

1700 ' [117] 

1710 DATA 4a078,8.aO8a,8.al43,8<al72 1 8.a2df,8.a [3578] 

31d , &a3f 5 , &a3f c , &a403,8.a40a,&a43f 

1720 DATA &a4e4,&a44b,&a4fa,&a504,0 [1150] 

1730 ' [117] 

1740 1 - [3336] 


1750 ' [117] 

1760 ’***** DATAs Teil 2 ***** [1029] 

1770 ' [117] 

1780 3-Byte-Befehle - [854] 

1790 1 [117] 


1800 DATA Ä96bl ,&96b4,8.96b7,8.96bf , &96c6,8.9 [3881] 
6c9,8.9 6cc , 8.9 6c f , 8.9 6d 2,8.9 6d5,&96d8 

1810 DATA &96db,&96de,&96el,8.96e4,8.96e7,&9 [3965] 
6ea, &96ed,&96f0,a.9 6f3,8.96f6,&96f9 

1820 DATA &96 f c , 49 6f f ,8.9702,49705,8.9 708,49 [2594] 
70b,4970e,49711,4979f,497a7,497b4 

1830 DATA 497ba,497c8,497cf,497e6,497eb,49 [3894] 
80b,49816,4982a,4982d,4983f,49842 

1840 DATA 4985e,49863,49867,4986d,49878,49 [3040] 
87e,49893,4989e,498a9,498ad 

1850 DATA 498be,498e8,498ed,498f7,49904,49 [3183] 
90a,49933,4993b,49949,4994d,49959 

1860 DATA 4995c,499fb,49aOB,49a0d,49al5,49 [3362] 
ale,49a21,49a2a,49a2f,49a32,49a3f 

1870 DATA 49a42,49a55,49a5b,49a5e,49a74,49 [3700] 
a77,49a7a,49a85,49abl,49ab6,49abe 

1880 DATA 49ac6,49ac9,49ad4,69ad7,49ae0,49 [2640] 

ae7,49aeb,49aee,49afa,49afd,49b05,49b0c 

1890 DATA 49bl2,49bl5,49bl8,49b21,49b24,49 [4120] 

b27,49b32,49b35,49b38,49b3f,49b47,49b4b 

1900 DATA 49b4e,49b51,49b5b,49b77,49b9e,49 [3426] 

ba3,49baa,49bb0,49bd5,49bdf,49beb 


Listing Profi-RSX 


VERSAND 


JOYCE HARD- UND SOFTWARE: 


RAM-Erweiterung (ür Joyce PCW 8256: 
Speichererweiterung von 256 KB Mil ausführlicher 
Einbauanleitung Preis: 99,— OM 

FD-2 (2 Laufwerk für Joyce PCW 8256): 

Kapazität 2 x 80 Spuren mit insgesamt 1 MB unforma¬ 
tiert Komplett mit ausführlicher Einbauanieitung in 
transportsicherer Styropor-Verpackung 
Preis: 448,— DM 

Kompletter Joyce-Plus-Aufrüstsatz bestehend aus: 
RAM-Erweiterung und FD-2 Laufwerk Zum günstigen 
Komplettpreis: 498,— DM 

Joyce-Phono-Set; 

bestehend aus RS-232 Schnittstelle, Akustikkoppler, 
RS-232 Datenkabel Keine Software zusätzlich erfor¬ 
derlich Preis: 339,— DM 

Bildschirmfilter für Joyce-Moniior Reduziert Flim¬ 
mern und störende Spiegelungen Preis: 59,— DM 
Farbband tür Joyce-Drucker Preis: 19,90 DM 

2 Stk 29,90 DM 
Joyce-Drucker Verlängerungskabel: 

Inklusive Stromverlängerungskabcl 59,— DM 
Papierlührung Joyce: Ersetzt die vorhandene 
„Klappe' Durch den verstellbaren Seiten-Anschlag 
ist ein gerader Papiereinzug und genaue seitliche Ein¬ 
stellung vom Druck-Anfang möglich Preis:37,— DM 
Monitorständer für Joyce 49,90 DM 

Fleet Street Editor; 259.— DM 

Disketten: 

3" Disk CF-2 (Maxelli 5 Stk/10 Stk 49,90/79,— DM 
3" Disk CF-2 DD für Joyce 8512, 5 Stk. 79,— DM 


PC HARD- UND SOFTWARE: 


Tastaturverlängerung 19,90 DM 

Monitorverlängerung 89,— DM 

VORTEX Abdeckhauben für: 

Tastatur 19,90 DM 

Monitor und CPU 49,90 DM 

Drucker DMP 3000 24,40 DM 


Math. Co-Prozessor 8087-2, Taktfrequenz 8 MHz mit 
genauer Einbauanieitung Preis: 398,— DM 

Co-Prozessor V-30 39,90 DM 


RAM-Speichersteckkarte SPC 128 (512 KB auf 640 
KB) Nur einstecken. Kein Schrauben oderLöten. Ein¬ 
bau in 2 Minuten beendet Kein Garantieverlust durch 
Zerlegen Preis: 149,— DM 


infocom: Hollywood-Hi Jinx 
Fahrenheit 451 
Rendezvous with Rama 
Nine Princes in Amber 
Conflict in Vietnam 
Rock'N Wrestla 
Prohibition 
Destroyer 

Decision in the Desert 
Saboteur II (Avenging Angel) 
Arkanoid 

F15 - Strike Eagles 

Cyruss II Chess 

Ace 

Asterix 

Blueberry 

Knight Orc 

Skyrunner 

3-D-Helicopter 

Silent Service 

Winter Games, Pitstop II und 
Summer Games II aul einer Diskette 
lee Hockey 


69,90 DM 

69.90 DM 

79.90 DM 
79,90 DM 

79.90 DM 

64.90 DM 

49.90 DM 

79.90 DM 

79.90 DM 

59.90 DM 

59.90 DM 

64.90 DM 

69.90 DM 

79.90 DM 

69.90 DM 

69.90 DM 

64.90 DM 
64,90 DM 

64.90 DM 

79.90 DM 

79.90 DM 

69.90 DM 


VERBINDUNGSKABEL: 


Druckerkabel für: 

CPC 464,664(2 m Länge Flachbandkabel) 44,— DM 
CPC 6128(2 m Länge Flachbandkabel) 44,— DM 
CPC6128(abgeschirmles Rundkabel) 49, — DM 


Akustikkopplerkabel 

(zw. RS 232 u. Modem) 1,5 m 49,50 DM 

Anschlußkabel: 2 Floppy an CPC 664 39,— DM 

Anschlußkabel: 2 Floppy an CPC 6128 39,— DM 

Monitorverlängerung für CPC 464 22,90 DM 

Monitorverlängerung für CPC 664 u 6128 28,90 DM 
Joystickverlängerung für 1 Joystick 
(3 m Länge) 14,90 DM 

Recorderanschluß 

(CPC an 5-pol. DIN Buchse) 17,90 DM 

Recorde'anschluß (CPC an Kiinkenbuchse) 17,90 DM 
CPC-Stereokabcl zum Anschluß 
an HiFi-Anlage 15,90 DM 

Schneider-Joystickadapter 

zum Anschluß von 2 Joysticks 15,90 DM 

Scarl-Monitorkabel |TV-Anschiu8) 29,90 DM 


NÜTZLICHES ZUBEHÖR: 

VORTEX-Monitorständer: Dreh- und schwenkbar in 
allen Richtungen Für alle 12" Monitore Solide Aus¬ 
führung aus bruchfestem Kunststoff Preis: 39,90 DM 
Für 14" Monitor (Farbmonitor CTM 644) 49,90 DM 
Micro-T-Schalter: Ein Schnittstellenumschalter mit 
dem Sie 2 Drucker an t Computer (oder umgekehrt) 
anschließen können Einfache Drucktastenumschal- 
tung. auch für alle anderen Peripheriegeräte Optional 
mit RS 232/V 24 oder Centronics-Schnittstelle 


Preis: 119,— DM 

Traktorlührung für NLQ 401: 69,90 DM 

Druckerständer: Papierzufuhr von unten 
oder hinten Preis: 49,90 DM 

Bildschirmfitter: 

Für Farbmonitor CTM 640/644 44,— DM 

Für Grünmonitor GT 64/65: 39,— DM 


Datenrecorder: Zum Laden und Speichern von Kas¬ 
settensoftware auf dem CPC 664 und CPC 6128 Im 
Preis ist das Oatenübertragungs- und das Netzkabel 
enlhalten Auch für Batteriebetrieb geeignet und als 
normaler Musikrecorder verwendbar Preis: 89,— DM 
Diskettenreinigungsset: 

für SV." Laufwerke: 12,90 DM 

für 3W" Laufwerke: 15,90 DM 


PFLEGEMITTEL: 

ORIGINAL VOHTEX-ABDECKHAUBEN: 


Schneider Floppy DDI-1 16,80 DM 

VORTEX Floppy F1-S o F1-D 19,80 DM 

Schneider Konsole lür 464 und 664 19,80 DM 

Schneider Konsole für 6128 19,80 DM 

VORTEX Floppy F1-X und M1-X 19,80 DM 

Schneider Monitor grün 24,80 DM 

Schneider Monitor color 26,80 DM 

Schneider NLQ 401 19,80 DM 

Schneider DMP 2000 22,B0 DM 

Proto-3'’-Diskbox für 10 Disketten 12,80 DM 
2 Stk: 21,50 DM 


FARBBÄNDER: 


Joyce 
DMP 2000 
DMP 4000 
NLQ 401 
P6 


1 Stk./2 Stk. 
1 Stk./2 Stk. 
1 Stk / 2 Stk 
1 Stk /2 Stk. 
1 Stk / 2 Stk 


Panasonic 10XX 1 Stk /2 Stk 
Weitere preisgünstige Farbbänder auf Lager 
Bitte anfragen 


19,90/29,90 DM 
11,90/19,90 DM 
14,90/24,90 DM 
9,90/14,90 DM 
17,90/29.90 DM 
13,90/22,90 DM 


CPC-SPIELE-SAMMLUNGEN: 

The World’s Greatest: 

World Games. Winter Games, Impossible Mission, 
Super Cycle C/D 33,-/49,90 DM 

Solid Gold: 

Gauntlet, Ace of Aces, Winter Games, Leaderboard 
inflltrator C/D 33,-/49,90 DM 

10 Hit Computer Games: 

World Series Baseball, Hyper Sports, Match Point, 
Basketball, Super Soccer, Squash, World Champion¬ 
ship Boxing. Pool. Konami's Ping Pong, D Thomp- 
sons's Supertest C/D 34,90/49,90 DM 


vortex-Versand * Falterstraße • 7101 Flein 

O Senden Sic mir Ihren Katalog C CPC, O Joyce oder O PC 1512 O per Nachnahme 

(Schutzgebühr DM 3,-, bei Bestellung ab DM 100,-frei) _ 

C per Euro-Scheck 

O Senden Sie mir umgehend folgende Artikel aus Ihrem Angebot 


_ DM 

_ DM 

_ DM 

_ DM 

bei Aulträgen bis DM 200,- Versandkoslenpauschale DM 5.90 _ _ 

Absender: Gesamtsumme 


_DM 

_DM 


Telefon-Nr _ Unterschrift 

Alle Lieferungen erfolgen auf Grund unserer Allgemeinen Geschäftsbedingungen 













































I—Serie 


1910 DATA 19c3a,49c3d,49c40,19c46,49c49,49 [3435] 
c4c,49c5 6,49c59,49c 63,&9c6d , 49 c 7 b 

1920 DATA 19c7e,49c9a,49c9f,49cad,19cb9,49 [4084] 
CC5,49cd6,19 cd 9,&9cdc,&9ce5,&9cea 

1930 DATA 49cee,49cf3,49cfd,49d0a,49dl 8,&9 [4085] 
dlf,&9d25,&9d31,&9d41,&9d44,&9d49 

1940 DATA 19d4c,49d4f,49d54,19d5f,49d8a,49 [3924] 
d99,49dd0,49dd6,&9de3,&9df 7,&9e2 6 

1950 DATA 49e43,&9e4a,49e52,49e58,49e69,49 [3967] 
e6c,19e6f,49e93,l9eac,49ebl,49eb7 

1960 DATA 49ebc,49ec3,19ec6,19ed2,4gee5,69 [4828] 
eee,49af9,49f02,19f06,19f5e,19f6c 


1970 DATA 49f 80,49f 8d,0 [1240] 

1980 ’ [117] 

1990 •- 4-Byta-Befahle - [911] 

2000 1 [117] 

2010 DATA 49a7d,49a81,&9aad,&9acc,&9b00,&9 [2993] 

b2a,49b3b,49cb3,19cdf,49ef3,0 

2020 1 [117] 

2030 *- [3336] 


2040 ' [117] 
2050 '***** OATAs Teil 3 ***** [976] 
2060 ' [117] 
2070 3-Byte-Befeh 1e - [854] 
2080 ' [117] 


2090 DATA IBf90,48f93,48f96,48f9e,&6fa5,48 [3311] 
faB,48fab,lBfae,48fbl,48fb4,18fb7 

2100 DATA 48fba,48fbd,48f CO,48fc3,48fc6,18 [5268] 
fC9,18fCC,18 fCf,49005,4900a 

2110 DATA 19017,1902a,19033,4903a,19040,49 [2904] 
05b,4905a,19063,4906a,49072,19077 

2120 DATA 49084,4908b,4909f,490a4,490a7,49 [3754] 
116,49135,49141,19144,19147,49153 

2130 DATA 49157,19166,19169,19171,49175,19 [3377] 
17a,19187,19la2,191a7,191aa,191b2,191b9 
2140 DATA 491d3,491d6,491a6,491e9,491f9,49 [3615] 
lfc,49204,49249,4924c,49255,49288 

2150 DATA 4928f,492aa,492b6,492b9,492bC,49 [3987] 
2C1,492c4,492cc,492d4,492d8 

2160 DATA 492dc,492e0,492e4,492e8,492ec,49 [1429] 
2f0,492f4,492f8 

2170 DATA 192fc,19300,49316 [749] 

2180 DATA 49323,49334,49337,4933a,4933f,49 [3251] 
346,49349,4934a,19353,49356,49359 

2190 DATA 4935c,4935f,49362,49367,4936 b, 49 [4234] 
37a,493a4,493b9,493dl,493a9,493ed 

2200 DATA 19407,4940a,1940d,49411,49571,49 [4194] 

586,495ac,495b8,495bb,495bf,495d2 

2210 DATA 195d9,495e5,495a8,495fe,49602,49 [2165] 

61f,49624,4963a,4967b,49689,4968a 


2220 DATA 49698,196a2,0 [494] 

2230 ' [117] 

2240 - 4-Byte-Befahle - [1433] 

2250 ‘ [117] 

2260 OATA 4925c,0 [186] 

2270 ‘ [117] 

2280 '- [3336] 


2290 1 [117] 
2300 '****• DATA» Teil 4 ***** [817] 
2310 1 [117] 
2320 3-Byte-Befehle - [854] 
2330 1 [117] 


2340 DATA 18804,48812,48815,48818,48829,48 [4219] 
82c,48835,4683a,4884b,48877,4687a 

2350 DATA 48882,48894,48899,188e7,488ed,48 [3074] 
8f0,488f3,488f6,488f9,488fc 

2360 OATA 488ff,48902,48905,48908,4890b,48 [3251] 
906,48911,18914,1891a,4891d 

2370 DATA 18920,48923,48926,48929,4892c,48 [4099] 
92f,48932,48935,48al4,48al7,48ald 

2380 DATA 48a21,48a28,48a32,18a3f,18a43,48 [3414] 

a50,48aac,48ae2,48ae8,Iflaf3,48af7,18afe 

2390 DATA IBbOl,48b0a,iBblO,48bl5,18b20,48 [4985] 

b29,48 b34,48 b39,18b3e,48b4b,4Bb52,18b4f,48 

b5a 

2400 DATA 48b77,48b7a,18b82,48b86,48b98,48 [3564] 
bbd,48bc6,48bcd,48bd6,48bd9,48bdc 

2410 DATA 48ba5,48bfl,48c06,48c10,48c2a,48 [3626] 
c5b,48c67 j 48c7f,48cbd,46cca,48cce,48cd2 


Listing Profi-RSX 


2420 DATA 18CB6,48cf2,48cfa,48cfe,18d0f,48 [2226] 
dl2,48dl6,48dl9,48dlc,48d25 

2430 DATA 18d2d,48d30,4Bd4f,48d5d,4Bd70,48 [4190] 
d80,48d88,48d8c,48d8f,4Qd93,48daa 

2440 DATA 48dad,48db6,48dca,4Bdd1,48dd5,48 [3322] 
ddB,18dde,48de3,48de9,48dec,48df2,48df5 
2450 DATA 48df9,4Bdfc,48eDb,48al7,48ela,48 [2829] 
e21,48e24,48a2a,48e2e,48e33,48e37 

2460 DATA 48a42,48e49,I8e53,48e5c,4Bec7,48 [3264] 
edl,48efe,18f04,18f70,48f76,18f82 


2470 DATA 18f86,0 [307] 

2480 ’ [117] 

2490 '- 4-Byta-Befahle - [911] 

2500 1 [117] 

2510 DATA 4880c,18822,48ce2,0 [878] 

2520 * [117] 

2530 ‘- [3336] 


2540 * [117] 

2550 '****• DATAs Teil 5 ***** [1038] 

2560 ' [117] 

2570 *- 3-Byta-Bafahle - [854] 

2580 ' [117] 


2590 DATA 48005,48008,18010,48017,180la,48 [3659] 
Old,48020,18023,48026,48029,4802c,4802f 
2600 DATA 48032,48035,18038,4803b,1803a,18 [2980] 
041,48044,18047,4804a,4B04d 

2610 DATA 48050,18053,48056,48059,1805c,48 [3556] 
Ofd,48104,48116,48118,18120,1812c 

2620 DATA 48134,48137,18141,18147,1814c,18 [3516] 

153,48164,48169,48173,48183,48190,48193 

2630 DATA 48196,ISlaO,181a9,481bd,181cl,48 [5230] 

Ic5,481c8,481cb,481d2,481d8,481e0 

2640 DATA 481e5,18201,48207,182la,4821d,48 [3524] 
221,4822e,48231,48236,48240,48256 

2650 DATA 48260,18265,4827a,48283,48286,18 [3852] 
290,48294,48299,4829f,482a8,482ac 

2660 DATA 482b9,482d2,182d5,482de,4B2el,18 [2800] 

2a4,182a8,482ab,18327,4832b,48356,48366,48 

38b 

2670 DATA 48391,4839c,1839f,183aa,183bl,48 [3704] 
3b5,483bf,483c7,483cf,483a1,483 fl 

2680 DATA 483f8,18400,18409,48410,18424,48 [2716] 
42b,48430,48433,4844a,48452,4845a 

2690 DATA 48464,4846a,48471,4847f,18488,48 [2499] 
4a4,484dd,484e0,484ec,48507,4850f 

2700 DATA 4852c,48541,18547,18557,4B56d,48 [2794] 
57b,48581,48597,4859a,1859f,485b3 

2710 DATA 185b6,485c5,185f2,18607,18613,48 [3487] 
61b,1861a,48639,4883f,4864c,48651 

2720 DATA 48654,4865d,4866c,48674,4867a,18 [3918] 
6c6,486c9,486cf,466d2,4B6el,486ed 

2730 DATA 486f0,4B6fa,48713,1871d,48720,48 [4383] 
730,18749,1874a,48766,18769,4876c,48779 
2740 DATA 48784,1678b,487Be,4B79d,188lc,48 [3231] 
83b,48849,4885c,4886a,48873.4887b 

2750 DATA 48882,18888,1888c,48896,1889c,0 [1537] 


2760 ' [117] 

2770 4-Byta-Bef ehle - [911] 

2780 * [117] 

2790 DATA 1812f,48268,482b2,183c3,183e4,48 [4737] 
405,4841f,1843b,48467,484f4,18519,18660 
2800 DATA 186b4,4B6f6,186fd,4873f,187a2,0 [1951] 

2810 ' [117] 

2820 *- [3336] 


2830 1 [117] 

2840 '****• DATAa Teil 6 ***** [1155] 

2850 * [117] 

2860 •- 3-Byte-Befehle - [854] 

2870 ' • [H7] 


2880 DATA 47219,47220,47223,4722a,4722d,17 [2997] 
234,47237,1723a,17241,17244,4724c 

2890 DATA 47253,17256,47259,4725c,4725f,47 [4399] 
262,47265,17268,4726b,472 6a, 17271 

2900 DATA 17274,47277,1727a,4727d,47305,47 [3173] 
30c,17316,4732c,47331,17336,1734a 

2910 DATA 1737f,47384,47394,473af,173b2,47 [2934] 
3bf,473c2,173dc,473*1,473e4,173f7 

2920 DATA 4740f,47412,47419,47426,4742f,17 [3738] 
432,4743f,47445,47448,4744f,4745c 


Listing Profi-RSX 


40 PC 1’88 














—Serie—i 


2930 DATA 8.7469,1746c ,&7479,1747c , &74?f ,&7 [4015] 
489,8.749a,&74bl , 4 74c 7,8.74ca ,& 74cf 

2940 DATA &74b 4,8.74f 3 , &74fd , 8.7507,8.7549,8.7 [3081] 
551,8.755a, 8.7566,8.756c, &756f,8.75a4 

2950 DATA &75a9,&75ac , &75af , 8.7666,8.767a ,&7 [3894] 
685, & 7666,8.7693,8.769c, 8>76a3 , & 77fd , 8.7808 
2960 OATA 8.782 b, &783f , 8.765a ,&78 64,8.7883 ,&7 [2505] 
889,&7B96,478c0,8.7905 

2970 DATA 8.7909 ,&7912,8.7915,8.791 a , 8.7 92 b, & 7 [3353] 
92f, &7933,4 7936,8.7951,479 72,479 7 5 

2980 DATA 4797e,479c9,479de,479ed,47a04,47 [2266] 
a2c,47a3c,47a3f,47a76,47ab3,47aee 
2990 DATA 47b04,47b07,47bOf,47bl3,47b30,47 [3559] 
b33,47b4c,47b54,47b67,47b6a,47b6f 

3000 DATA 47bB6,47bad,47bb9,47bf7,47c07,47 [4572] 
c15,47c44,47c50,47c7c,47c88,47c90 
3010 DATA 47ca3,47caf,47ce5,47d0d,47dlb,47 [4241] 
d24,47d2f,47d41,47ae3,47eea.47f02 


3020 DATA 47f06,0 [596] 
3030 1 [H7] 
3040 4-Byte-Befehle - [911] 
3050 ‘ [117] 


3060 DATA 4733f,4736f,4741c,47420,4748f,47 [3152] 

49d,474ab,474oa,474f6,47502,4750b 

3070 DATA 47524,475C2,47626,4767d,47681,47 [2309] 


68b,4769f,4799a,0 

3080 1 [117] 

3090 '- [3336] 


3100 ' [117] 
3110 '***** DATA* Teil 7 ***** [868] 
3120 ' [117] 
3130 3-Byte-Befehle - [854] 

^ IAO 1 [H7] 


3150 DATA 46e01,46e04,46e0c,46el3,46el6,46 [3497] 

el9,46elC,46elf,46e22,46e25,46a2B 

3160 DATA 46e2b,46e2e,46e31,46e34,46e37,46 [3419] 

e3a,46e3d,46e40,46e43,46a46,46ed8 

3170 DATA 46edf,46ee2,46ee7,46f53,46f56,46 [4352] 
fc9,46fcc,46fcf,46fd9,46ffb,4700f 

3180 DATA 47037,4703e,47042,47045,47048,47 [2661] 
06b,4709f,470ba,470c7,470e0,470ec 


3190 DATA 47133,4713e,47147,4716f,0 [1572] 

3200 ' [117] 

3210 4-Byte-Befehle - [911] 

3220 ' [117] 

3230 DATA 47092,470a7,470ab,470b5, 470e8,47 [2896] 
Of5,4712d,0 

3240 * [117] 

3250 '- [3336] 
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EPROM TOTAL 


Universeller EPROM-Programmer4003 für Schneider 

PC & CPC 464/664/6128 

• P'ogrammiert alle gängiger EPROM- unc EEPROM 

Typen (z 6 2716. 27CI6, 2732, 2732A. 27C32. 
2756. 2764. 2764A. 27C64. 2712B. 2712BA. 
27C128, 27256, 27C256, 2506. 2532 2564 
X2904A, X2916A, X2864A ) 

• Msnugesteusrte Software auf Cassette/Diskette 

• 32 KByte frei für EPROM-Daien :3iennen des 27256 
ohne Nachlacent 

• Kein Umschalten Stecken oder Lolen nolig 

• Programmicrsoannungen werden tot Gerat erzeugt 

• Verbindung zum Rechner über Flacnbanck3bel unc 
Interface-Karte (CPC-Version mil durcnaeluhr.err 
Expansionspon) 

• Rote und grüne LED zur Betnebsartenanzeiae 

• Komplett mit 29po ; igeiT Textool-Sockel 

CPC-464/664 -Fertiggerat DM 289,50 Bausatz DM 239.- 

CPC-6128-Fediggeral DM319,50 Bausatz DM 269.- 

PC-1512-Fer.iggerat DM399,50 3ausatzDM349.- 

• Aufpreis für CPC-Software auf 3 -Diskette statt Cassette DM 15 - • 

EPROM-Karte 64 KByte für alle CPC 

• Wahlweise Pestuckbar mit 2-64 KByte EPROM-Kapazitat 

• Für die EPROM-Typen 2716, 32 -64.-128 

• Durcngetuhrter Expansionspon 

• Software zum automahscnen Erstellen von Ptogrammoduien iBasic-Programme) 

CPC-464,'664-Fertiggerät DM 99.- Bausalz DM 79,- 

CPC-612S-Fediggerat DM119,- Bausatz DM 99.- 

Modul-Software auf Cassette DM 80.- auf 3 Diskette DM 95,- 

EPROM-Karte 224 KByte für alle CPC 

• Für die EPROM-Typen 2764, -129, -256 

• ROM Nummern 0-15 frei wahlpar 

• 7 Sockel 

• Bei 27256 2 ROM-Nummern pro Sockel 

• Durohgefuhrter Fxpansionspod 

• Software zum automatischen Erstellen von Programmodulen (Basic unc BIN-Dateien) 
Fediggerat'ur CPC 464/664 DM 145,- 

Fediggera; für CPC 6128 DM169,- 

Modul-Software auf Cassette DM 80,- auf 3 Diskette DM 95.- 

Zubehör für EPROM-Karten 

Maxam-EPROM OM 129,- 

Afpha-ROM DM 35,- 

T ime-ROM (Echtzeituhr | DM 109,- 

DOBBERTlfl™ 

Industrie-Elektronik 

Brahmsstraße 9, 6835 Brühl, Telefon 06202/71417 


Public-Domain für CPC, Joyce und C-128 

Sagenhaft preiswerte Software für Schneider-CPC, Joyce und C-128 mit ge¬ 
drucktem deutschen Handbuch - so machen diese Programme richtig Spaß! 

Programm des Monats: CP/M-Hilfsprogramme (Diskette 6) 

Alle die Programme, die beim täglichen Arbeiten mit CP/M unabdingbar sind; 
UNERA rettet gelöschte Dateien. DU ist ein ungemein leistungsfähiger Dis¬ 
kettenmonitor. SD zeigt das sortierte Directory. SQ komprimiert Dateien bis 
50%. CP/M 2.2-EmuIaior für CP/M Plus. Zweispaltiger Druck von Dateien. 


1- JRT-Pascal - vollständiges Pascal mit 64K-Strings, Overlays ... * 

2- Z80-Assemblerpaket mil Assembler, Disasscmbler, Linker und Debugger 

3- Künstliche Intelligenz - Interpreter für XL1SP und E-PROLOG 

5- FORTH-83 - mit Assembler, Decompiler, Screen-Edilor ... 

6- CP/M-Ulililics wie Dateikompressor, Diskmonitor, UNERA ... 

7- Alle Programme aus dem Großen CPC-Arbeitsbuch (nur CPC) 

8- Adventurc Colossal Cave (Programm englisch, Anleitung deutsch) * 

9- CPC-Disk Utilities - kopiert geschützte Software (nur CPC) 

10- ßizßasic - CPC-Basic-Erweiterung (relative Dateiverwaltung ctc.) 

11- Basic-Compilcr E-BASIC - CBASIC-kompatibcl, viele Befehle 

12- Turbo Pascal-Programme - INLINE-Gcncrator, GSX- & CPC-ROM-Grafik 

13- Alle Programme aus dem Buch Den Joyce programmieren 

14- Alle Programme aus dem Buch CPC-Dateiverwallung (nur CPC) 

* auf dem CPC-464/664 nur mit Speichererweiterung (64K genügen). 


Der Preis? Sage und schreibe nur 30,- Mark pro Diskette inklusive Porto und 
Verpackung! 3 Zoll, Vortex-Format, 1570/1571, aber nicht 1541. Lieferung per 
Nachnahme oder Vorauskasse, Ausland: nur Vorauskasse. 

MARTIN KOTULLA 

Grabbestraße 9, S500 Nürnberg 90, Telefon 09 11/30 33 33 


Weitere Bezugsquellen für CPC, Joyce und Commodore-128: 

TH SCO GmbH, RüdenhausenerstraBe, 8714 Wiesentheld, Telefon 0 93 83 / 12 37 
Computer Hard-Software Simon. EspenslraOe 79. 4600 Dortmund 1, Telefon 02 31 / 51 13 70 
Mükra-Datentechnik, Schöneberger Straße 5, 1000 Berlin 42, Telefon 030 / 7 52 91 50 
Soft- und Hardware Ulrike Broker, Fasanenweg 2, 6690 St Wendel 8, Telefon 06 856 / 504 
Weitere Bezugsquellen für Schneider-CPC und Joyce: 

Computerstore, Hochstraße 11, 8500 Nürnberg 80, Telefon 0911 / 28 90 28 

Techn Büro Hochholzer, E.-Prunner-Str, 1, 8062 Markt Indersdorf, Tel. 08136 / 1625 

Weeske Computer-Elektronik. Potsdamer Ring 10, 7150 Backnang. Telefon 07191 / 1528-29 


Pro:ext-EPROM DM129,- 
Ulopia DM 99,- 
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r~Wettbewerb 


Der große 
Wettbewerb mit 
Profi-RSX-Befehlen 

Willkommen, liebe Leserin, lieber Leser, herzlichsten 
Glückwunsch, Sie haben es geschafft! 

Wenn Sie aufmerksam bei dem Profi-RSX-Marathon 
mitgemacht haben, wird Ihnen sicherlich nicht entgangen 
sein, daß wir nun bei der letzten Folge angelangt sind. 
Manch einer wird aufatmen und erleichtert sein, ist doch 
nun die Serie mit den vielen DATA-Zeilen und Befehlen 
zum Schluß gekommen. 



Tja, wir wissen, es waren ganz schöne 
Brocken, die wir Ihnen da vorgesetzt 
haben. 

Aber, wir glaubten bzw. wir glauben 
immer noch, diese Befehlserweiterung 
für Ihren CPC kann helfen, den Rech¬ 
ner in seinen Fähigkeiten und Leistun¬ 
gen noch weiter auszuschöpfen, als es 
möglicherweise bisher der Fall gewe¬ 
sen ist. Unsere Posteingänge zeigen 
uns immer wieder, wie unsere Serien 
ankommen oder auch nicht. Der Be¬ 
fehl sumfang nahm auch noch einen 
größeren Umfang an, als am Anfang 
unserer Serie angegeben. Das sollte 
aber wohl nicht als Nachteil angesehen 
werden. Oder? 


Unser Anliegen 


Wir wollen die Serie nicht so in der 
Luft hängen lassen. Nein, es soll ja 
schließlich auch was daraus gelernt 
werden. 

Wären wir in der Schule, dann würde 
jetzt das Wissen in Form einer Klassen¬ 
arbeit abgefragt werden. Da wir aber 
keine Schule im eigentlichen Sinne 
sind, möchten wir gerne trotzdem Ihr 
Wissen testen. 

Unsere Serie “Profi-RSX“ wurde mit 
zahlreichen mächtigen Befehlen ausge¬ 
stattet, die so vielseitig in ihrer Art und 
Anwendung sind, daß fast jeder Be¬ 
reich in der Computeranwendung ab¬ 
gedeckt werden kann. 

In einer von uns gewohnten wöchentli¬ 
chen Redaktionssitzung kamen wir auf 
die glorreiche Idee, einen großen Pro¬ 
fi-RSX-Wettbewerb auszurufen. Das 
soll hiermit geschehen. 


Schauen Sie sich doch einmal die Ge¬ 
winne an, die sich mit ein wenig Glück 
und Geschick “programmieren“ las¬ 
sen. 

Große Geld-, Sach- 
und Softwarepreise 
warten auf die Gewinner. 

Eine einzige Bedingung stellt unsere 
Redaktion: 

Schicken Sie uns ein Programm mit der 
Einbindung der Profi-RSX- Befehle, 
die Ihnen am meisten Zusagen. 

Aus den vielen Gebieten der 
Computeranwendungen haben wir drei 
für Sie ausgewählt. 

1. Ein Mal- oder Desktop- Publishing- 
Programm. 

2. Ein Spielprogramm 

3. Hier haben Sie freie Wahl, d.h., es 
kann sich entweder um Utilities, 

T extverarbeitung, Datenverwaltung 
usw. handeln. 

Unsere Kriterien: 

Je origineller die Spielidee; Grafik, 
Spielwitz und Ausführung sind, umso 
höher ist die Chance, zu gewinnen. 

Alle Programmeinsendungen müssen 
aber als Grundlage die Profi-RSX-Be- 
fehle haben. Zur kurzen Erinnerung: 
Sie finden die Befehle von Heft 6/87 
bis 1/88 vor. Wenn Sie sich jetzt ange¬ 
sprochen fühlen, dann sollten Sie sich 
sofort an die Arbeit begeben. Der gei¬ 
stige Erguß sollte mit einem Kennwort 
an die unten genannte Adresse ge¬ 
schickt werden. 


Die Gewinne im einzelnen: 

1. Preis: 3000,— DM in bar 

2. Preis: 1000, - DM in bar 

3. Preis: 500, — DM in bar 

4. bis 10. Preis: 

Ein großes Softwarepaket im Wert von 

250,-DM 

11. bis 50. Preis: 

Je ein Hartschalenkoffer mit den Initia¬ 
len des Gewinners und zusätzlichen 
DMV-Produkten. 


Zusammenfassung der 
einzelnen Bedingungen 


1. Senden Sie uns ein Programm im 
Rahmen der von uns genannten 
Anwendungsgebiete, das mit den 
ausgewählten Profi-RSX-Befehlen 
zusammenarbeitet. Die Länge soll¬ 
te 25 KByte nicht überschreiten. 
Vergessen Sie bitte nicht, eine aus¬ 
führliche Bedienungsanleitung auf 
Datenträger, in Form eines Textfi¬ 
les (Context, Tasword, Word¬ 
star/ASCII) beizulegen. 

2. Pro Einsender nur eine Einsen¬ 
dung 

3. Der Einsendeschluß ist der 

21.2.1988. Maßgebend ist das Da¬ 
tum des Poststempels. 

Das Ganze ist einzusenden an den: 

DMV-Verlag 

Kennwort: Profl-RSX-Wettbewerb 

Fuldaer Straße 6 

3440 Eschwege 

Der Rechtsweg ist ausgeschlossen. 

Mitarbeiter des DMV-Verlages dürfen 

nicht teilnehmen. 
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DISCOLOGY 


- 36-seitiges, deutschsprachiges Handbuch 

- 50 Bildschirmseiten Hilfstexte im Programm 

- Voll menügesteuert, mit Pull-down-Windows 

- Unterstützt olle Diskettenlaufwerke (AMSDOS) 

- Nutzt Speichererweiterungen und RAM-Speicher 

- 100% Maschinensprache 
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CPC 

DISC 

TOOLS 


DAS PROGRAMM FÜR DEN INTERESSIERTEN ANWENDER 

SCOLOGY 



Für alle CPC’* 

3"-Diskette 

nur 

DM 99.- 


EDITOR: 




Displag 


Sülm 


-Cmctl 


In*: »7 Steins: 081 
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- Bearbeiten von geschützten und ungeschützten 
Sektoren jeder Größe mit anschl. Speichern 

- Kombinieren von ASCII-, HEX-, Dezimal-, Oktal- 
und Binärdarstellung 

- Disossemblieren auf Bildschirm oder Drucker 

- Darstellung als BASIC-Listing 

- Kopieren, Verschieben und Einfügen von Daten 

- Taschenrechnerfunktion 

- Reparieren beschädigter und gelöschter Files 



COPIER: 

- Erstellen von Sicherheitskopien ganzer Disketten, 
geschützt oder ungeschützt 

- Erkennen beliebiger Sektorgrößen 
(128-4096 Bytes) 

- Erkennen und Schreiben aller künstlich erzeugten 
Sektorfehler 

- Bearbeiten weiterer, besonderer Schutzsektoren 

- Untersuchen und Erkennen der Schreibdichte 

- Kopieren umformatierter Spuren, „ illegaler" und 
gelöschter Sektoren, Sektoren unterschiedlicher 
Größe 

- Kopieren veränderter GAPs 

- Bearbeitung aller möglichen Spuren 
(theoretisch bis Spur 99) 

- Automatisches Reparieren defekter Sektoren 

- Kopieren einzelner Files oder Filegruppen, auch 
von Kassette auf Diskette und von Diskette auf 
Kassette 

- BASIC-Listschutz entfernen 

- Kopien von Kassette mit „Re/ocofor" möglich 
(Bei Uberschreiben der AMSDOS-Routinen) 

- Gezieltes Verändern des Filestatus 
(Fileattribute R/0, SYS, protecled) 

- Formatieren von Disketten in 16 Sekunden 



EXPLORER: 

- Grafische Auswertung der Diskettenstruktur 

- Ausgabe von Formatierung und Sektorkenndaten 

- Grafische Auswertung des Directories 

- Darstellung der Blocks und Sektoren einzelner 
Files mit allen Block- und Sektordaten. 

- Daten einzelner Sektoren per Cursorsteuerung 
abrufbar. 

- Anzeige von „Sektorfehlern * 
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Exploration 
Internat um 


Current trieb : 916 
tmsity: doublt 
Nb. of sectirs : 981 
Formt Imjtb : 996 

Currmt sector : U3 
Position ■ 081 
Lsnjtb : 066 
t»e : Control N. 


Exploration 


Ortions 


telp 


Sjslm 



hp 

Inforoition 


Currmt trieb : 837 
Currmt sieter : Md 

ÄiM 

Formt : SISTDI 
Pi sc capiciti : 16« 
Bytes Irre ; 09dK 

Him: IiCCIXL .m 
Sin on disc : 9!« 
type: Binary 

Start address : HäJI 
Ixte, address : WO# 
File site : 21703 


SIREN 


Die Schneider-Utilities 


DISCOVERY PLUS Tape to Disc Transfer 

5 Programme zum Kopieren geschützter Kassetten¬ 
software auf Diskette. Für Speedlock-, Headerlose 
und andere Kopierschutzarten. 

Für alle CPC's 3'-Diskette DM 59.90 

CHERRY PAINT 

Sehr komfortables Mal- und Zeichenprogramm. Iko¬ 
nen- und Menüsteuerung (Pulldown-Menüs). Bedie¬ 
nung mit Joystick, Tastatur oder Maus. Ausdruck in 6 
verschiedenen Größen und Qualitäten, von 6x7 cm 
bis DIN A4. Erstellung eigener Druckertreiber. 
Deutsches Handbuch auf Diskette. 

Für alle CPC's 3"-Diskette nur DM 49.90 

HANDY MAN/MASTERDISC 

Für alle CPC's 3"-Disk. je DM 59.90, zusammen DM 99.- 

PRINT MASTER 

20 versch. Schriften, in jedem ASCII-File einzuset¬ 
zen. Ausdruck in versch. Breiten und Höhen. Eigene 
Schriften entwerfen. Screendumps, RSX,... 

Für olle CPC's 3 "-Diskette DM59.90 


ARNOR Software 


PROWORTjoyce, CPC 6128 (CP/M+) Disk.DM 219. 

PROTEXT CPC 464 - 664 • 6128 Diskette DM 94. 

EPR0M DM124. 

PROMERGE CPC 464 - 664 ■ 6128 Diskette DM 84. 

EPR0M DM 114. 

UTOPIA CPC 464 ■ 664 • 6128 EPROM DM 94, 
MAXAM CPC 464 • 664 ■ 6128 Diskette DM 94.- 

EPROM DM 124.- 

Deutsches Handbuch für MAXAM/PR0TEXT (CPC) je DM 19.- 


EPROM-Karte 224 KB für CPC 

Für EPROMS der Typen 2764, -128, -256 
Sieben Steckplätze, ROM-Nummer 0-15 frei wähl¬ 
bar. Durchgeführter Erweiterungsport. Bei 27256 
EPROMs 2 ROM-Nummern pro Sockel. 

CPC 464 - 664 DM 145.- CPC 6128 DM 169.- 
Infos für EPROM-Programmer und Software ^ 

zur Installation eigener Programme \|e , ‘ > 

(BASIC und Binär) auf EPROM 
in unserem Katologl 


Aktion Wintervorrat I 3"-Disketten 

MAXELL CF2 10 stück nur DM 59.- 

Unbedingt unseren Katalog mit weiteren aktuel¬ 
len Angeboten und Spielen zu Superpreisen, 
auch für JOYCE und PC, anfordern (DM 2.-)! 

PR8-SOFT Klaus-M. Pracht 
Postfach 500 

D-8702 Margetshöchheim 

24 Std.-Telefon: 

0 09 31/46 44 T4 


































































I—Serie 


Spieleprogrammierung 

in Assembler Ergänzung 

Wegen starker Nachfrage, durch unsere Leserschaft wird es noch einen er¬ 
gänzenden Teil geben, der sich u.a. mit der Erstellung einer HI-SCORE-Liste 
beschäftigt. 


Mit der heutigen Folge von “Spielepro¬ 
grammierung in Assembler“ wollen 
wir unsere Serie endgültig abschließen. 
All denen, die immer noch aktiv dabei 
sind, wollen wir zunächst einmal Lob 
und Anerkennung aussprechen. Denn 
längere Serien sind prinzipiell immer 
ein wenig problematisch, da ein Teil 
der Serie auf dem letzten aufbaut und 
demzufolge ein Leser, der alle verfol¬ 
gen will, immer am Ball bleiben muß, 
wenn er eine der weiteren Folgen ver¬ 
stehen will. Andererseits haben wir uns 
allerdings immer bemüht, in jeder Fol¬ 
ge einen in sich abgeschlossenen The¬ 
menkomplex zu behandeln, so daß 
auch “Gelegenheitsleser“ und “Spät¬ 
einsteiger“ sicherlich viele nützliche 
Anregungen und Tips verwenden 
konnten. Neben dem bisher schon vor¬ 
gestellten Grundprogramm HEKTIK, 
welches ausführlich dokumentiert die 
grundlegenden Probleme Spielfeldauf¬ 
bau, Figurenkontrolle, Figurenbewe¬ 
gung, Tastaturabfrage, Spielmelodie 
und Synchronisation behandelt hat, ha¬ 
ben wir vor allem in den letzen Folgen 
die Ausführungen auf ein allgemeine¬ 
res Niveau gelenkt. Das geschah aus 
mehreren Gründen: zum einen sind be¬ 
stimmte Problembreiche einfach zu 
komplex, als daß man sie in einer Zeit¬ 
schrift überhaupt angemessen erläutern 
könnte und zum anderen sollte unsere 
Serie ja von Beginn an darauf abzielen, 
nicht nur ein Spiel zur Verfügung zu 
stellen, sondern vor allem die Leser 
dazu anregen, einmal selbst in die Ta¬ 
sten zu greifen, um die eigenen Ideen 
zu verwirklichen. 

Deshalb wollen wir in dieser letzten 
Folge zwei Dinge behandeln: zunächst 
einmal grundlegende Voraussetzungen 
für das effektive Entwickeln von Vi¬ 
deospielen und zum anderen nochmals 
einige kleine Routinen zur Theorie der 
Spieleprogrammierung. 

Die Grundlage dafür, daß man Video¬ 
spiele gerade direkt in der Maschinen¬ 
sprache des entsprechenden Rechners 
programmiert, liegt ja in der Tatsache, 


daß auf der einen Seite nur Maschinen¬ 
sprache die Reserven des Rechners ef¬ 
fektiv ausnutzt und auf der anderen Sei¬ 
te nur Maschinensprache schnell genug 
arbeitet, um die Vielzahl unterschiedli¬ 
cher Aufgaben und Arbeitsgänge zu er¬ 
ledigen, die in einem Videospiel 
gleichzeitig auszuführen sind. Vielfach 
wird darüber vergessen, daß eine Pro¬ 
grammierung in Maschinensprache 
auch nur in eben den Fällen notwendig 
ist, die die beiden obigen Kriterien er¬ 
füllen. Für das Titelbild zum Beispiel 
(siehe auch Folge 6) wäre eine Pro¬ 
grammierung in Maschinensprache 
zeitraubender Luxus. Diese Form 
mangelnder Ökonomie verstärkt sich, 
je leistungsfähiger ein Rechner wird. 
Viele zeitkritische Algorithmen, die 
auf kleinen Systemen die Benutzung 
von Assembler unumgänglich machen, 
lassen sich unter schnellen Prozessoren 
(etwa MC 68000) auch in effizienten 
Hochsprachen (zum Beispiel C) pro¬ 
grammieren. Um Maschinensprache 
wirklich effektiv einzusetzen, ist es 
deshalb unbedingt erforderlich, zu er¬ 
kennen, wann Maschinensprache be¬ 
nutzt werden muß. Denn es mag ja si¬ 
cher ein angenehmes Gefühl sein, zum 
Beispiel eine (lauffahige) Adressver- 
waltung für den CPC in Assembler 
programmiert zu haben, es ist aber mit 
Sicherheit zeitsparender, weniger fru¬ 
strierend und angenehmer, das gleiche 
Problem in Amstrad-BASIC zu lösen. 
Damit nämlich die Programmierung in 
Assembler wirklich auch längere Zeit 
echten Spaß macht, sollte man diese 
Überlegungen nicht vergessen. Es 
kommt oftmals nämlich nicht darauf 
an, in welcher Sprache man bestimmte 
Probleme löst, sondern auf welche 
Weise man sie löst. Nicht die Entwick¬ 
lung der Realisierung ist das entschei¬ 
dende, sondern die Entwicklung der 
Idee, des Algorithmus. 

Dieses Prinzip haben wir auch im Ver¬ 
lauf unserer Serie zu verwirklichen 
versucht. Wir haben die grundlegen¬ 
den Gedankengänge immer möglichst 


detailliert wiedergegeben und erst dann 
die tatsächliche Ausführung kommen¬ 
tiert. Bei anderen Bestandteilen der Se¬ 
rie haben wir absichtlich BASIC einge¬ 
setzt, weil damit die Entwicklung von 
Programmen doch erheblich einfacher 
ist, als es mit Assembler der Fall wäre. 
Hätten wir zum Beispiel den Leveledi- 
tor aus Folge 4 in Maschinensprache 
geschrieben, wäre er vielleicht immer 
noch nicht fertig. Gerade Hilfsmittel, 
die zum Entwickeln von Spielen unent¬ 
behrlich sind (Spriteditoren, Leveiedi¬ 
toren, Soundgeneratoren), sollte man 
in einer möglichst komfortablen Spra¬ 
che formulieren. 

Es kann auch nur darauf hingewiesen 
werden, daß man den Computer, für 
den man ein Spiel entwickeln will, 
auch schon bei der Planung und vor al¬ 
lem bei der Umsetzung konkreter Da¬ 
tenstrukturen hinreichend einsetzt. 
Wann immer ein Vorgang komplizierte 
Verfahren beinhaltet, sollte man sich 
sofort ein Programm für das entspre¬ 
chende Problem entwickeln. Zwar be¬ 
nötigt man natürlich auch für die Reali¬ 
sierung dieses Programmes etwas Zeit, 
jedoch wird diese Zeit meistens durch 
den positiven Effekt, den das Pro¬ 
gamm, sobald es fertiggestellt ist, aus¬ 
löst, wieder “hereingeholt“. Die Er¬ 
rechnung aller Daten für die fünf Spiel¬ 
stufen von HEKTIK hätte per Stift und 
Papier mit Sicherheit mehr Zeit in An¬ 
spruch genommen als die Entwicklung 
des Leveieditors, der die grafischen 
Daten eines Level s automatisch in ihre 
numerische Entsprechung umsetzt. 
Denn wozu hat man den Computer - 
wenn nicht als Arbeitserleichterung? 
Ein weiterer wichtiger Aspekt bei der 
Entwicklung von Spielen und von pro¬ 
fessioneller Software generell liegt in 
der Tatsache, immer im Auge zu behal¬ 
ten, daß sich über spezielle Probleme 
schon andere, möglicherweise klügere 
Köpfe das Hirn zermartert haben. Ein 
Automobilhersteller beispielsweise, 
der sich bei der Entwicklung eines Au¬ 
tos Gedanken darüber macht, auf wel¬ 
che Weise sich sein Gefährt fortbewe¬ 
gen soll, anstatt auf die Entdeckung des 
Rades zurückzugreifen, arbeitet dumm 
und unwirtschaftlich. Viele spezielle 
Probleme der Programmierung, vor al¬ 
lem solche der Strukturierung von Da¬ 
ten, sind in Fachpublikationen ausrei¬ 
chend dargelegt. Man sollte also ruhig 
in die Stadtbüchereien gehen und in 
Fachbücher zumindest einmal hinein¬ 
schauen. Und auch wenn auf dem 
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Buchrücken “für Informatik-Studenten 
ab 6. Semester“ o.ä. vermerkt ist, soll¬ 
te man als “Normalbürger“ nicht 
gleich das Handtuch werfen, da damit 
noch nicht gesagt sein muß, daß man 
das Buch nicht begreift. In diesem Zu¬ 
sammenhang nimmt natürlich die Pro¬ 
grammierung von Videospielen eine 
Sonderstellung ein, da Spieleprogram¬ 
mierung als seriöses Problem der In¬ 
formatik noch nicht recht anerkannt ist 
und Informatiker lieber über das new- 
tonsche Näherungsverfahren als über 
PACMAN auf dem IBM AT promo¬ 
vieren. 

Nichts destotrotz kann man in vielen 
Fachbüchern, die sich auf vollkommen 
andere Probleme beziehen, ebenfalls 
Hinweise finden, die sich in Videospie¬ 
len ganz gut umsetzen lassen. Ein gutes 
Beispiel dafür ist die Datenstruktur, die 
die Spiellevels von Hektik dar stellt. 
Mit dem Ablegen des gesamten Spiel¬ 
feldes als Sequenz von Vektoren kann 
man natürlich auch andere Probleme 
der Informatik erfassen. Nach dem 
gleichen Grundprinzip sind nämlich 
beispielsweise die meisten CAD-Syste- 
me und Konstruktionsprogramme or¬ 
ganisiert, auch hier werden die Grund¬ 
muster, seien es nun Geraden, Kreise 
oder Ellipsen, in ihrer vektoriellen Ent¬ 
sprechung abgelegt. Das gleiche gilt 
für andere Programmteile von HEK¬ 
TIK, etwa für die Synchronisation. 

Ob man nun ein Videospiel program¬ 
miert, bei dem “im Hintergrund“ Mu¬ 
sik gespielt werden soll, oder ob man 
einen Druck-Spooler entwickelt, der 
“im Hintergrund drucken soll: die 
theoretischen Grundlagen und Prinzi¬ 
pien bleiben gleich. 

Das wollen wir an einem konkreten 
Beispiel einmal verdeutlichen: wir 
wollen für HEKTIK eine High-Sco- 
re-Tabelle entwickeln. Damit die Ta¬ 
belle immer verfügbar ist, soll sie ex¬ 
tern auf der Diskette oder Kassette ab¬ 
gelegt sein, und zwar im folgenden 
Format: 

Funktion des Eintrags 
Länge der Tabelle in Einträgen 2 
Eintrag 1, Punkte 1 


Eintrag n, Punkte n 

Länge des Eintrages: 10,2 
10,2 
10,2 


Pro Eintrag ist also eine Namensnen¬ 
nung von zehn Buchstaben erlaubt, da¬ 
hinter wird die Gesamtpunktzahl des 
Spielers als Vielfaches von 100 ver¬ 
merkt (wir gehen davon aus, daß die 
Punkte in Hunderterschritten gezählt 
werden). 

Für unser Beispiel wollen wir diese 
Anzahl der Einträge auf sieben Stück 
festlegen, es ist jedoch von Vorteil, sie 
zu Beginn der Datei abzulegen, damit 
mögliche Erweiterungen ebenfalls im¬ 
mer mit der alten Tabelle und Tabellen¬ 
länge Zusammenarbeiten können. 

Außerdem sind wir durch die Tatsache, 
daß wir die Anzahl der Einträge in der 
Datei variabel halten, gezwungen, bei 
der Entwicklung der Routine zur Dar¬ 
stellung und Kontrolle der Tabelle im¬ 
mer auf diesen variablen Wert zurück¬ 
zugreifen. Dadurch behalten die For¬ 
meln ihre allgemeine Struktur und kön¬ 
nen auch für andere Anwendungen 
verwendet werden. 

Bevor wir überhaupt arbeiten können, 
müssen wir diese Tabelle initialisieren, 
also auf einen Anfangsstand bringen. 

Das geschieht mit dem kleinen BASIC- 
Programm aus dem Listing. Mit dieser 
Routine wird die Dateistruktur, die in 
den DATA-Zeilen festgehalten ist, auf 
die Kassette oder Diskette übertragen. 
Die so erzeugte High-Score-Tabelle er¬ 
hält den Namen HISC.TAB. 

Nach jedem beendeten Spiel wird die 
soeben erreichte Punktzahl mit den 
Werten der Tabelle verglichen, damit 
erkannt werden kann, ob der Spieler 
sich einen Platz in der ewigen Bestenli¬ 
ste erkämpft hat. 

Sofern das der Fall ist, kann der Name 
des Spielers eingetragen und die Tabel¬ 
le abgespeichert werden. Auf diese Art 
und Weise erhält man eine ewige Be¬ 
stenliste, die ständig abgefragt werden 
kann. 

Natürlich muß man sich bei der genau¬ 
en Programmierung der Bestenliste 
auch noch etwas einfallen lassen, damit 
es nicht bei einer langweiligen Liste 
bleibt. 

Wir wollen bei unserem Beispiel im 
Falle einer Eintragung zuerst den Na¬ 
men abfragen und danach diesen Na¬ 
men innerhalb der Liste langsam nach 
oben wandern lassen. Dieses “Wan¬ 
dern“ soll mit einem Soundeffekt ver¬ 


bunden werden. Das entsprechende 
Programm haben wir in dem Listing 
abgedruckt. Das Kriterium, ob die 
Punktzahl tatsächlich einen Platz in der 
Liste verdient hat, wird durch eine ein¬ 
fache Kontrollstruktur untersucht, die 
man umgangssprachlich folgenderma¬ 
ßen formulieren kann: 

SETZE eintragmerker AUF 0 
VON eintraganzahl RÜCKWÄRTS 
BIS 1 TRUE 

FALLS erreichte punktezahl GRÖßER 
ALS punktezahl des eintrages 
DANN SETZE eintragmerker AUF 
aktuelle eintragnummer 
ENDE VON 

Wird diese Routine programmiert, so 
kann man nach Ablauf am Wert der 
symbolischen Variablen EINTRAG¬ 
MERKER ablesen, ob und wo die er¬ 
reichte Punktezahl in die Liste gehört: 
falls EINTRAGMERKER = 0, gehört 
der Eintrag nicht in die Liste, anson¬ 
sten enthält EINTRAGMERKER die 
Position, an die der Eintrag plaziert 
werden muß. 

Das sind eigentlich schon alle Anga¬ 
ben, die für die Kontrolle der Tabelle 
notwendig sind. Hiernach muß dann le¬ 
diglich die Tabelle selbst noch korri¬ 
giert werden, das heißt, es müssen be¬ 
stimmte Einträge “nach oben“ gescho¬ 
ben und andere aus der Liste entfernt 
werden. 

Unser Listing HISCORE.BAS Listing 
zeigt eine mögliche Variante. Ent¬ 
scheidend hierbei wiederum, daß das 
realisierte, einfache Verfahren natür¬ 
lich in seinem Prinzip nicht nur für die 
Entwicklung von Videospielen taugt, 
sondern daß damit beispielsweise auch 
das Einordnen eines neuen Wertes in¬ 
nerhalb einer Tabellenkalulation pro¬ 
grammiert werden könnte. 

Natürlich gibt es gerade in diesem Zu¬ 
sammenhang bei manchen Videospie¬ 
len äußerst ansprechende Lösungen; 
aber auch hier wieder der gleiche Tip: 
Setzt Euch an die Rechner und probiert 
eine ähnliche Lösung! 

Nur Übung macht den Meister! 

Mit diesen schulmeisterlichen Tips 
wollen wir die Serie “Spieleprogram¬ 
mierung in Assembler“ ausklingen las¬ 
sen. Wir hoffen, daß Sie allen Lesern 
ein wenig Spaß und viele “Aha’s“ ge¬ 
bracht hat, jedenfalls würden wir uns 
über (positive wie negative) Leserpost 
sehr freuen. 

(Martin Althaus / Markus Zietlow) 
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10 [ 117 ] 

20 1 [117] 

30 ' Programm INIT.BAS, initi1aisiert High [4617] 
-Score-T abel1e 

40 ' [117] 

50 * U17] 

60 RESTORE 200 [563] 

70 READ eintraganzahl [1661] 

80 0PEN0UT“HISC.TAB" [933] 

90 PRINT #9,eintraganzahl [865] 

100 FOR zaehler = 1 TO ei ntraganzahl [2710] 

110 READ eintragname$,ei nt ragpunkte [2698] 

120 PRINT #9,eintragname$ [1044] 

130 PRINT #9,eintragpunkte [1346] 

140 NEXT zaehler [356] 

150 CLOSEOUT [902] 

160 1 [117] 


170 ' hier steht die Dateistruktur, die le [4003] 
diglich auf die 


180 

' Diskette oder 1 

Kassette 

uebertragen w 

[2757] 

i rd 
190 

■ 




[117] 

200 

der 

DATA 7 

Eintraege 


: ' Anzahl 

[1597] 

210 
a i 

DATA 

“Superman 

" , 100 

: ' Eintra 

[1968 ] 

220 

DATA 

”Splderman 

" ,80 


[1888] 

230 

DATA 

"Batman 

" , 70 

: • 

[1182] 

240 

DATA 

"H.Kohl 

" ,60 

: ■ 

[1319] 

250 

DATA 

"F.Vogel 

" , 50 

; 1 

[1717] 

260 

DATA 

"F.Genscher 

" , 40 

: 1 

[1678] 

270 

9 7 

DATA 

"J.Ditfurth 

" , 30 

: ' E i n t r a 

[2683] 


10 1 [117] 

20 ' [117] 

30 ' Beispieiprogramm fuer eine High-Score [3071] 
-Routine mit 

40 * extern abgelegter High-Score-LIste [1342] 
50 ' [117] 

60 ' in aktuel1epunkte steht die Punktezah [4339] 
1, die eventuell eingetragen wird 

70 1 [117] 

80 1 [117] 

90 aktuel1epunkte = 18700 [16721 

100 1 [117] 

110 OPENIN "HISC.TAB" : ' externe Hig [6852] 

h-Score-Tabel1e zum Lesen oeffnen 

120 INPUT#9,eintraganzahl : ’ und Anzahl [4023] 


der Eintraege auslesen 

130 DIM e1ntragname$(eintraganzahl).eintra [4852] 
gpunkteCeintraganzahl) 

140 : : ’ dann Speich [1623] 

erplatz reservieren 

150 MODE 1 : ' Bildschirm [1796] 


1 ni ti alsieren 

160 PRINT Bestenliste" [2288] 

170 FOR zaehler=l TO eintraganzahl [3438] 

: ' alle Eintraege auslesen 

180 INPUT *9,eintragname$(zaehler) [1670] 

190 INPUT #9,eintragpunkte(zaehler) [2930] 


200 LOCATE 12,4+zaehler : ' Eintrag aus [3552] 
geben 

210 PRINT eintragnamej(zaehler);" ";100*e [3255] 

intragpunktet zaehler) 

220 NEXT zaehler [356] 

230 1 [117] 
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240 FOR zaehler=eintraganzahl TO 1 STEP -1 
250 IF aktuel1epunkte/100>eintragpunkte(za 
ehler) THEN eintragmerker=zaeh1er 
260 NEXT zaehler 
270 ' 

280 ' diese Programmstruktur wurde im Heft 
umgangssprachlich entwickelt 
290 ' 

300 IF eintragmerker=0 THEN END 
: ‘ kein Eintrag noetig 
310 LOCATE 1,24:INPUT “Name: " ,name$ 

: ' nun Namen eingeben 
320 name$=LEFT$(name$+STRING$(10,“ ">,10) 

: ' auf 10 Zeichen bringen 
330 eintragname$(eintraganzahl)=" 

" : ' letzten Eintrag loeschen 
340 eintragpunktefeintraganzahl )=0 
350 FOR zaehler=eintraganzahl TO eintragme 
rker STEP -1 
360 LOCATE 12,4+zaehler 
: ’ Eintrag ansteuern 

370 PRINT STRING$(20," ") 

: ‘ und auf Bildschirm loeschen 
380 LOCATE 12,5+zaehler 

: ' E1ntrag+1 ansteuern 

390 PRINT eintragname$(zaehler); 

400 IF ei ntragpunktetzaehler)>0 THEN PRINT 
" 100 *e 1 ntragpunkte(zaehler) 

410 SOUND l,300+zaehler*50,10 
: ' Note spielen 

420 NEXT zaehler 
430 LOCATE 12,4+eintragmerker 

' aktuelle Punkte ausgeben 
440 PRINT name$;“ ";aktue11epunkte 
450 IF eintragmerker=e1ntraganzahl THEN 50 
0 : ' wenn letzer Eintrag 

460 FOR zaehler=eintraganzahl TO eintragme 
rker+1 STEP -1 

470 eintragname$(zaehler)=e1ntragname$(zae 
hler- 1 ) : ' schiebe alle 

480 ei nt ragpunktetzaehler) = eintraqpunkte(2 
aehler-1) : ‘ Eintraege rauf 
490 NEXT zaehler 

500 eintragname$(eintragmerker)=name$ 

: ' trage neuen Eintrag 
510 ei nt ragpunktet eintragmerker)=INT(aktue 
11epunkte/100) : ' in Liste ein 

520 OPENOUT "hisc.tab“ 

: ' und geaenderte Liste 

530 PRINT #9 , ei ntraganzahl 

: 1 extern aktual1sieren 

540 FOR zaehler=l TO e1ntraganzah1 
550 PRINT #9,eintragname$(zaehler) 

560 PRINT #9,e1ntragpunkte(zaehler) 

570 NEXT 2aehler 
580 CLOSEOUT 

: ' Datei schliessen 

590 END 


[2661] 

[3783] 

[356] 

[117] 

[7476] 

[117] 

[ 1966] 

[3321] 

[2728] 

[2561] 

[3228] 

[3101] 

[2472] 

[2430] 

[3118] 

[1416] 

[3946] 

[1967] 

[356] 

[2565] 

[2511] 

[3475] 

[3435] 

[3257] 

[5716] 

[356] 

[3015] 

[4433] 

[2460] 

[2067] 

[2710] 
[1498] 

[1686] 

[356] 

[2104] 

[ 110 ] 
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Neu: CPC-Sonderheft Nr. 6 

Ab sofort ist das CPC-Sonderheft Nr. 6 erhältlich. 
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Lernen 






Anwendung 


Luyaf: 

/lala Drüallarilp: 


Tide Schneider-Magazin 


ionsplotter 


ichführung 


Sie erwartet wieder eine ausgewogene Mischung hochinteressanter Beiträge zu den Schnei¬ 
der CPC-Computern. Die vielfältige Palette unseres Angebotes reicht von den Grundlagen 
der Computeranwendung über Lernprogramme bis hin zum absoluten Profi-Programm in 
Form einer kompletten Lagerbuchführung für kleine und mittlere Betriebe. 

Die im Sonderheft 6 angebotene Software hilft allen interessierten Anwendern, ihren Compu¬ 
ter besser zu verstehen und somit optimal auszunutzen 

Programmierer finden qualitativ hochwertige Tips&Tricks um ihre BASIC-,CP/M oderTurbo- 
Pascal Programme noch effektiver gestalten zu können. 

Freunde von Computerspielen freuen sich über viele hilfreiche Tips und Lösungshilien zu be¬ 
kannter Software und finden zudem im listingteil eine wahre Fundgrube an guten Spielpro¬ 
grammen zum Eintippen. 

Konzeptionell zielt das neue CPC-Sonderheft auf Computeranwendungen ab, viele Meinung¬ 
sumfragen und Leserresonanzen bestätigten uns dies schon im Vorfeld der redaktionellen 
Tätigkeit. 

Das CPC-Sonderheft Nr. 6 baut auf den Erfahrungen der vorangegangenen fünf(l) Sonder¬ 
hefte auf und läßt keinen CPC-Anwender im Stich. Quantitative Vielfalt durch qualitative 
Information- Leistungsmerkmale an denen kein CPC-Besitzer vorbeikommt. 

Natürlich sind, wie beim DMV-Verlag üblich, auch diesmal wieder alle im Heft befindlichen 
Programme auf Datenträger erhäftlich.( erneut bieten wir insgesamt mehr als 500 kB Daten 
für Ihren CPC!) 

Aus dem Inhalt: 

Grundlagen: 

Von der Datei zur Datenbank Anwendungsbeispiele einer relativen und sequentiellen Datei. 
Anwendungen: Komplette Lagerbuchhaltung mit Rechnungserstellung.Bestandsfortschrei- 
bung und und und... 

Thema Diskettenlaufwerke: 

Viele nützliche Tips und Programme zum effektiven Umgang mit Floppylaufwerken, z B. Dis¬ 
karchiv, neues Disketten-DOS, Peeks&Pokes und vieles mehr... 

Lernprogramme: Computer und Schule, z.B. Lineare Gleichungssysteme, Vokabeltrainer, 
Funktionsplotter etc. 

Spiele: 

Super-Listings für alle Fälle, z.B das bekannte Life jetzt auch in 3D, Strategiespiele wie Ver¬ 
schiebefix oder oder oder.... 

Dazu bieten wir viele Informationen in Form von Tips und Lösungskarten, viele Pokes zu 
Spielesoftware und einen Ausblick auf den französischen Softwaremarkt. 

TIps&Trfcks: 

u.a. Fehlermeldungen im Griff (nie wieder Overflow und Division by Zero), animierte Textaus¬ 
gabe (völlig neue Effekte), schnelle Sortierroutine und viele Grafiktips. 

Hardware: 

Bauanleitungen für einen Schnittsteilen-Umschalter (Nutzen von mehreren Geräten an ei¬ 
nem CPC) und für eine Autofeuer-Funktion ihres Joysticks. 

CP/M: 

Neben einer leistungsfähigen Erweiterung zu CP/M 2.2. bieten wir Ihnen Hardcopies unter 
CP/M sowie eine Routine, die ein deutsches Datum installiert. 

TUrbo-Pascal: 

Grafik-Befehlserweiterung, Hardcopy-Routine und Directory-Funktion unter Turbo-Pascal. 

Haben Sie Appetit bekommen? Das waren nur einige Leistungsmerkmale des sechsten 
CPC-Sonderheftes, das ab sofort überall erhältlich ist 


Weitere Sonderhefte im Verlag erhältlich 


Sonderheft 3/88: 

Reviews - Spiele - Anwendungen- ein wahres 
Hit-Sammelsurium birgt das CPC-Sonderheft 3/86 
Die Spielprogramme im Überblick und viele Tips, 
Lösungen und Karten zu Computerspielen- und 
Abenteuern. Begeistern wird Sie auch der Flugsi¬ 
mulator - ein echter Leckerbissen zum Eintippen! 
Fantasy- und Adventurefreunde werden sich über 
das erste Rollenspieladventure Monstergarten si¬ 
cherlich genauso freuen, wie die Hardware- 
Freunde über die Echtzeituhr zum Selbstbau 


Sonderheft 4/S7 

Programmiersprachen - Anwendungen in Turbo- 
Pascal und mannigfaltige Informationen stehen im 
Mittelpunkt des 4 CPC-Sonderheftes. Mit über 
200 Seiten praller CPC Informationen, Tips und 
wertvollen Programmen das ideale Sammelsurium 
für jeden CPC-Anwender. Interessiert!? - dann 
sollten Sie sich schnell entscheiden, denn es sind 
nur noch wenige Restposten verfügbar. 


Sonderheft 5/87 

Power für Ihren CPC! Über 500 KByte leistungs¬ 
starke Software aus vielen Anwendungsbereichen 
bringen Ihren CPC auf Trab. Ob Einsteiger, Fortge¬ 
schrittene oder Profi - hier finden Sie alles, was 
Ihr Computer braucht Viele Tips & Tricks, Grundla¬ 
genartikel, Spiele und Anwendungen lassen die¬ 
ses Sonderheft zu einer unentbehrlichen Arbeits¬ 
hilfe werden 
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SPS auf dem CPC 

Folge 7 

In dieser Folge möchten wir Ihnen zeigen, wie eine SPS-Anweisungsliste auch 
ohne vorliegenden Kontaktplan programmiert werden kann. Bei umfangrei¬ 
cheren Steuerungen ist es sicherlich sehr mühsam, erst einen Kontaktplan zu 
entwickeln, um ihn dann in eine Anweisungsliste umzusetzen. Einfacher ist 
es, aus der Aufgabenstellung einen Funktionsplan zu erarbeiten. Aus dem 
Funktionsplan kann dann direkt die SPS-Anweisungsliste abgeleitet werden. 


In Bild 1 steht die Anweisungsliste der 
Aufgabe — Mischautomat — aus 
Folge 6. Da der Inhalt des Hilfsschüt¬ 
zes 9 außerhalb des SPS-Geräts nicht 
benötigt wird, habe ich hierfür den 
Merker M09 verwendet. Ich hoffe, Ih¬ 
nen ist der Mischbehälter nicht allzuoft 
übergelaufen. 


Aufbau des Funktionsplans 


Die grafischen Symbole des Funk¬ 
tionsplans sind nach DIN 40 719 defi¬ 
niert. Die Bilder 2,2a und 2b zeigen ei¬ 
nen Auszug der DIN-Ordnung. 

Der Funktionsplan ist eine auf den Pro¬ 
zeß ausgerichtete Beschreibung der 
Steuerungsaufgabe. Es wird grob der 
Ablauf der Handlungen (Schrittkette) 
festgehalten, und in Feinstruktur wer¬ 
den die notwendigen Details (Befehle) 
angegeben. 

Als Bespiel für die Einführung des 


gen aus. Ein gesetzter Schritt behält so¬ 
lange den Zustand logisch wahr, bis er 
gezielt wieder abgeschaltet bzw. rück¬ 
gesetzt wird. 

Schritt 1 in diesem Beispiel wird ge¬ 
setzt, wenn der Wagen an Position A 
steht und die Starttaste gedrückt wird. 
Schritt 2 wird gesetzt, wenn Schritt 1 
gesetzt ist und Position B vom Wagen 
erreicht wird. Gleichzeitig wird Schritt 1 
zurückgesetzt. Schritt 3 wird gesetzt, 
wenn Schritt 2 gesetzt ist und die Kipp¬ 
zeit tl abgelaufen ist. Gleichzeitig wird 
Schritt 2 abgeschaltet. In ähnlicher Art 
geht es so bis Schritt 6. Der Schritt 6 
wird durch Setzen des Schrittes 1 dann 
zurückgesetzt, so daß sich eine ge¬ 
schlossene Schrittkette ergibt. 


Die Befehle 


Rechts neben der Schrittkette stehen 
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Abb. 1: Anweisungsliste, Lösung aus Heft 12/87 


Neben Schritt 2 stehen die Befehle: 
NS Motor 2 rechts 


Funktionsplans möchten wir die Steue¬ 
rung der Transporteinrichtung aus Fol¬ 
ge 5, Heft 11/87 wählen. In dem Heft 
finden Sie auf Seite 51 in Abbildung 3 
die Aufgabenbeschreibung. Bild 3 (in 
dieser Folge) enthält den hierfür erfor¬ 
derlichen Funktionsplan. Sofern keine 
anderen Angaben gegeben werden, be¬ 
zieht sich der folgende Text auf diesen 
Funktionsplan. 


Die Schrittkette 


Links untereinander im Funktionsplan 
steht die Schrittkette: 

1 Fahrt von A nach B 

2 Kippen in Pos. B 

3 Fahrt von B nach C 

4 Kippen in Pos. C 

5 Fahrt von C nach A 

6 Grundstellung 

Es kann immer nur ein Schritt den Zu¬ 
stand logisch wahr einnehmen, bzw. 
gesetzt sein. Die anderen Schritte sind 
aus, bzw. nicht gesetzt. Der nachfol¬ 
gende Schritt, der nur gesetzt werden 
kann, wenn der vorliegende Schritt ge¬ 
setzt ist, schaltet jeweils den vorheri- 


die, den einzelnen Schritten zugeordne¬ 
ten, Befehle. Diese Befehle werden nur 
durchgeführt, 
wenn der jeweilige 
Schritt gerade ge¬ 
setzt ist. 


NSD Kippzeitt 1 

Der erste Befehl ist vergleichbar mit 


Neben Schritt 1 
stehen die Befehle: 

NS Motor 1 vor 
S Warnleuchte ein 

Hierbei bedeutet 
NS (nicht spei¬ 
chernd), daß der 
Ausgang, der das 
Leistungsschütz 
für den Vorlauf 
des Motors 1 
schaltet, nur so¬ 
lange Spannung 
abgibt, wie Schritt 
1 gesetzt bleibt. 
Das S (speichernd) 
bedeutet, daß die 
Warnleuchte auch 
nach Abschalten 
von Schritt 1 an¬ 
bleibt. 


Graphische Symbole 
in Funktionsplanen 


-xxxx 


xxxx- 


xxxx 


Benennungen und Erläuterungen 


Mlgemelne Wlrkunqsllnle im Funktionsplan 


Allgemeine Verzweigung einer Wirkungslinie 


Mehrere funktionsbedingende Wirkungsllnlen 
erfahren eine Zusammenfassung 


Benennung von Variablen (Bedingungen) 

An den mit xxxx bezeichneten Stellen 
stehen die Bedingungen 

Ist der in der Bedingung beschriebene Zu¬ 
stand erfüllt, hat die zugehörige Wir¬ 
kungslinie den binären Zustande "1", sonst 
■• 0 "! 


□ 

□ 


Grundform für Funktionssymbol 
In das Rechteck mit beliebigem Seiten¬ 
verhältnis wird das jeweilige Funktions¬ 
kennzeichen eingezeichnet, z.B. & für 
"UND"-Verknüpfung bzw. £1 für "ODER"- 
verknüpfung. 


Abb. 2: Erklärungen der Symbole bei Kontaktplänen 


48 PC 1 ’88 







































Serie—i 


Graphische Symbole 
in Funktionsplänen 


Benennungen und Erläuterungen 


ü -□ 


Eingänge in Funktionssymbole erfolgen vor¬ 
zugsweise von oben oder von links. Ist dies 
nicht der Fall, so sind 
Eingänge durch Pfeile 
zu kennzeichnen. 



Bei Anordnung mehrerer Eingänge darf eine 
Eingangsseite über eine oder beide Ecken 
hinaus verlängert werden. 


g & 


Ausgänge erfolgen grundsätzlich gegenüber 
den Eingängen an Funktionssymbolen. Sinn¬ 
gemäß gelten die gleichen Darstellungs- 
möglichkelten wie bei Eingängen. 


Schritt 

im oberen Feld des Schrittsymboles steht 
die Schrittnrnnmer. Im unteren Feld kann 
Text stehen, z.B. 


12 

Mohy auattolten 


Ein Schritt wird dann speichernd gesetzt, 
wenn die Variablen an allen Eingängen die 
“UND"-Verknüpfung erfüllen. Ist der 
Schritt gesetzt, hat der Ausgang den Wert 
"1“. Werden keine speziellen Angaben ge¬ 


macht, wird ein Schritt durch den Setzvor¬ 


gang des nachfolgenden Schrittes gelöscht. 
Außerdem kann Uber einen mit R gekennzeich¬ 
neten Löscheingang gelöscht werden. 

Ein Schritt kann auch durch Befehle gesetzt 
oder gelöscht werden. 


Abb. 2a: Symbollader Ein- und Ausgang 


Graphische Symbole 
in Funktionsplänen 



Benennung und Erläuterungen 


Befehl der Steuerung, allgemein. 

Ein Befehl wirkt mit Hilfe von Stellglie¬ 
dern auf den Prozeß ein oder löst Funk¬ 
tionen und Schritte innerhalb der Steue¬ 
rung aus. 

Der Befehl wird ausgeführt, wenn der Be¬ 
fehlseingang den Zustand "V annimmt, und 
wird auch nur so lange ausgeführt, wie 
der Eingang diesen Wert hat. 


Befehl Von einem Schritt dürfen nicht 
mehrere Befehle ausgegeben werden, die 
sich auf dasselbe Stellglied beziehen. 
Beziehen sich aber mehrere Befehle auf 
ein Stellglied, so gilt der Befehl, dessen 
Schritt zuletzt gesetzt wurde. 


Ein- und Ausgänge dürfen an beliebigen 
Stellen des Befehls-Symbols angeordnet 
werden. 

Feld B des Symbols soll mindestens dop¬ 
pelte Breite von Feld A oder C haben. 

In Feld A wird die Art des Befehls ein¬ 
getragen (siehe Variablenbezeichnung). 

In Feld B steht die Wirkung des Befehls. 
In Feld C wird die Kennzeichnung für die 
Abbruchstelle des Befehlsausgangs ange¬ 
geben (falls vorhanden). 


Beispiel: 


NSD 


Hupe ein, t=30s 


Benennung von Variablen im Funktionsplan: 

S gespeichert; NS nicht gespeichert; D verzögert; 

SD gespeichert und verzögert; NSD nicht gespeichert und verzögert; 
T zeitlich begrenzt; ST gespeichert und zeitlich begrenzt; 

SH gespeichert, auch bei Energieausfall; 

F Freigabe; R Löscheingang; RC Rückmeldung 

Die jeweilige Benennung bezeichnet den Zustand, bei dem die 

Variable den Wert *1* hat. 


Abb. 2b: Weitere Symbole in Funktionsplänen 


Softwareautoren für die Schneider Computer gesucht. 

Haben Sie nicht auch schon einmal daran gedacht, ein gutes Programm, das Sie selbst geschrieben haben, zu veröffentlichen ? 

Warum sollten nicht auch andere Leser in den Genuß Ihrer Mini-Dateiverwaltung, Grafikerweiterung, Tips, Tricks, Tools, Utilities, Simulationen, 
Games usw. kommen ? 

Wirklich gute Software, die den Anforderungen unserer Leser genügt, wird von uns entsprechend honoriert. 

Sie sollten jedoch bei der Einsendung Ihres Programms ein paar Punkte beachten. 

Wenn Sie Nachstehendes befolgen, wird Ihre Post zügig und ohne große Rückfragen und Verzögerungen bearbeitet: 

Senden Sie uns Ihr Programm mit 

(a) allen benötigten Files auf der mit dem Programmnamen bezeichneten Diskette. 

(b) den kompletten Ausdrucken/Listings aller Files der Diskette. 

(c) einer Beschreibung Ihres Programms und 

(d) einer genauen Bedienungsanleitung. 

Die Bedienungsanleitung und die Beschreibung sollten als Textdatei mit auf der Programm-Diskette enthalten sein. Wichtig für uns zu wissen 
wäre noch, mit welcher Konfiguration Sie arbeiten, welchen Drucker Sie benutzen, ob Sie ein zweites Laufwerk angeschlossen haben usw... 
Wenn Sie der Meinung sind, ein solches Programm geschrieben zu haben, dann nichts wie einschicken an den 

DMV Verlag • Red. PC International ■ Abtlg. CPC/Joyce/PC - Fuidaer Str. 6 • 3440 Eschwege 

Geben Sie bitte in der Adresse die für Ihren Schneider Computer (CPC, Joyce, PC) zuständige Abteilung mit an, damit ihr Programm direkt in 
die richtigen Hände gelangt. 
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FunfcHonsplan ( für Transporteinrichtung ) 


Pöi A 



Abb. 3: Ablauf einer Transporteinrichtung 

dem ersten Befehl von Schritt 1. Beim 
zweiten Befehl bedeutet NSD, daß das 
Zeitglied (NS) nach Rücksetzen von 
Schritt 2 mit ausgeht und verzögert (D) 
nach Setzen des Schrittes 2 den Zu¬ 
stand logisch “ 1 “ annimmt. 


Bei Schritt 6 soll die Warnleuchte spei¬ 
chernd (S) ausgeschaltet werden. Dies 
bedeutet einfach, daß sie nach Rückset¬ 
zen des Schrittes 6 ausbleibt. 

Bei den weiteren Befehlen wiederholen 
sich ähnliche Befehlsangaben. Die Be¬ 
deutung der vorangestellten Buchsta¬ 
ben können Sie in Bild 2b nachlesen. 


Anweisungsliste 
nach Funktionsplan 


Bei der Umsetzung des Funktionsplans 
in eine Anweisungsliste für ein SPS- 
Programm ist es sinnvoll die Schritt¬ 
kette getrennt von der Befehlsausgabe 
(also nacheinander) einzugeben. Die 
Anweisungsliste (Bild 5) bleibt so 
übersichtlicher. 


Die Befehle “S“ und “R“ 


Zum Setzen bzw. Rücksetzen der 
Schritte und Befehlsangaben; also zum 
speichernden Einschalten und Aus¬ 
schalten von Merkern, Ausgängen und 
ZeitgJiedem sind die Befehle/Anwei¬ 
sungen W S“ und “R“ vorgesehen (siehe 


Bild 4). Ein mit dem Befehl “S“ gesetz¬ 
ter Ausgang bleibt solange auf logisch 
“1“, bis er mittels der Anweisung “R“ 
abgeschaltet wird. Dies gilt natürlich 
nur, wenn der betreffende Ausgang 
nicht durch andere Anweisungen ver¬ 
ändert wird (z.B. “ = “). Die Befeh¬ 
le/Anweisung “S“ und “R“ sind be¬ 
reits in dem in Folge 2 vorgestellten 
Editor enthalten, so daß in dieser Folge 
kein BASIC-Programm vorgestellt 
wird. Vielleicht haben Sie, von natürli¬ 
cher Neugierde angetrieben, schon ein¬ 
mal die Wirkungen der beiden Befehle 
ausprobiert, und ich kann Ihnen hier 
gar nichts neues verkünden. 


Programmierung 
der Schrittkette 


Für jeden Schritt der Schrittkette wird 
einzeln die entsprechende logische 
Verknüpfung programmiert. Das Re¬ 
sultatregister hat dann den vom Ergeb¬ 
nis der Verknüpfung abhängigen Inhalt 
“0“ oder “1“. Bei “1“ werden die 
nachfolgenden Befehle “S“ und “R“ 
ausgeführt, bei “0“ haben sie keine 
Wirkung. Das heißt, daß bei “0“ des 
Resultatregisters z.B. der Befehl “S“ 
den Inhalt eines Merkers (“0“ oder 
“1“) nicht verändert. 

Schritt 1 wird also logisch “ 1 “, wenn 
E00 und E01 auf “1“ liegen. Falls 
Schritt 1 schon den Inhalt “1“ hatte, 
ändert sich nichts. 

Für die Programmierung der Schritt¬ 
kette bieten sich die Merker an, da die 
logischen Zustände der Schritte nicht 
direkt für die Schützansteuerung benö¬ 
tigt werden. Um unnötige Fehler bei 
der Eingabe der Anweisungsliste zu 
vermeiden, sollte man für Schritt 1 den 
Merker 1, für Schritt 2 den Merker 2 
u.s.w. verwenden. 

Die gesamte Programmierung der 
Schrittkette können Sie in Bild 5 nach¬ 
lesen. 


Programmierung 
der Befehlsausgabe 


Um die einzelnen Befehle zu einem 
Schritt auszugeben wird zuerst der dem 
Schritt zugeordnete Merker in das Re¬ 
sultatregister geladen. Hierbei kann es 
auch Vorkommen, daß Verknüpfungen 
der Schritte/Merker notwendig sind 
(siehe Motor 1 vor, Schritt 1 und 3). 
Anschließend können alle, dem Schritt 


s 

Setzen 

Steht im Resultatregister eine 1 , so wird 

R 

Rücksetzen 

der angesprochene Operand (A oder M) ge¬ 
setzt (—Signalzustand 1) bzw. rückge¬ 
setzt (—Signalzustand 0). Steht im 
Resultatregister eine 0, bleibt der Ope¬ 
rand unverändert. 



Abb. 4: So sollte eine Anweisungsliste aussehen. 
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zugehörige, Ausgaben veranlaßt wer¬ 
den. Auch hierbei sind unter Umstän¬ 
den die Befehle “S“ und “R“ einzuset¬ 
zen (siehe Warnleuchte). 

Ausprobieren können Sie die Anwei¬ 
sungsliste mit dem in Folge 5, Heft 
11/87 vorgestelltem Programm SPS- 
ALLG.BAS in Zusammenhang mit 
dem Editor SPS-EDIT.ASC aus Folge 
2, Heft 8/87. Denken Sie bitte daran, 
daß die Grenztaster für die Positionen 
A, B und C von Hand geschaltet wer¬ 
den müssen. 

Versuchen Sie doch einmal selbst, die 
Anweisungsliste zu dem in der letzten 
Folge vorgestellten Mischautomaten 


SPS-MIAU.BAS, nach dem Funk¬ 
tionsplan in Bild 6 zu entwickeln. 


Vorausblick 


In der nächsten Folge möchten wir Ih¬ 
nen abschließend ein Programm zur Si¬ 
mulation eines Hubtisches vorstellen. 
Hierbei wird eine Palette, über Senso- 
ren/Grenztaster gesteuert, mittels Bän¬ 
der befördert. 

Ich hoffe, die Einführung der Program¬ 
mierung nach Funktionsplan “ver¬ 
wirrt“ Sie nicht allzusehr, da Sie ja erst 
gelernt hatten, wie man ein Kontakt¬ 
plan/Stromlaufplan in eine SPS-An¬ 
weisungsliste umsetzt. 


Falls Ihnen, lieber Leser, die Einfüh¬ 
rung in SPS auf dem CPC Spaß ge¬ 
macht hat, und Sie unter Umständen 
Interesse an einer weiteren Fortsetzung 
der SPS-Serie haben, so schreiben Sie 
ruhig mal an den Verlag. Die Post freut 
sich über jede verkaufte Briefmarke. 


Quellennachweis 


Die Bilder 2, 2a, 2b, 3, 4 und 6 sind 
aus: 

Materialien zur Einführung der Mikro¬ 
prozessortechnik in die Elektroausbil- 
dung - Band 2 - SPS. 

(Werner Renziehausen) 
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Abb. 5: Anweisungsliste Transporteinrichtung. 


Funktionsplan { für Mischautomat ) 



Abb. 6: So könnte ein Ablauf eines Mischautomaten aussehen. 
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DISCOLOGY 

drei CPC-Disc-Tools in einem Paket 


Entwicklung: Meridien Informatique 
Deutsche Bearbeitung 
und Vertrieb: PR8-SOFT 
Steuerung: Tastatur 
Monitor: Farbe/Grün 
Programm: 100 % Maschinencode 
unter AMSDOS, kopiergeschützt 
Preis: 99, — Mark 

CPC 464 K CPC 664 K CPC 6128 Kl 
mit mind. einem Laufwerk 

Drei Fliegen mit einer Klappe schlägt 
die Neuerscheining aus dem PR8- 
SOFT-Vertrieb: DISCOLOGY, wel¬ 
ches eine französische Entwicklung 
mit englischer Benutzeroberfläche, 
deutschen Hilfstexten und einem deut¬ 
schen Handbuch beinhaltet, eingebun¬ 
den ist in eine hervorragende Benutzer¬ 
oberfläche und drei Disketten-Hilf- 
sprogramme hat, die zur Grundausstat¬ 
tung eines jeden Laufwerksbesitzers 
gehören sollten. 


Das Hauptmenü 


Nach dem Laden des kopiergeschütz¬ 
ten Programmpakets erscheint auf dem 
Bildschirm das Hauptmenü in Form ei¬ 
ner Menüzeile am oberen Bildschirm¬ 
randes und drei aufwendigen Grafiken 


in der Mitte des Bildschirms, drei Sym¬ 
bole für Editor, Copier und Explorer. 
Neben der Wahl dieser drei Unterme¬ 
nüs kann der Anwender Hilfstexte auf- 
rufen oder zur Betriebssystemebene 
zurückkehren. Nach der An wähl von 
QUIT erscheint ein weiteres Fenster 
mit folgenden Optionen: 

— Rückkehr zu BASIC oder CP/M 

— Farbwahl von Rand, Hintergrund 
und Schrift 

— Disketten-Directory 

— Hilfsmenüs ausdrucken (ca 30 !! 
Seiten Papier) 


Der Editor 


Der DISCOLOGY-Editor ermöglicht 
dem Anwender, den Inhalt von Disket¬ 
ten und der darauf gespeicherten Datei¬ 
en sichtbar zu machen und zu verän¬ 
dern. Es spielt keine Rolle, ob diese ge¬ 
schützt oder ungeschützt sind. Drei 
verschiedene Auswahlverfahren stellt 
DISCOLOGY zur Verfügung: Mit 
Disc-Editor haben Sie Zugriff auf die 
gesamte Diskette. Mit File-Editor wäh¬ 
len Sie eine bestimmte Datei an, die Sie 
später bearbeiten wollen. Mit Track- 
Editor wählen Sie schließlich eine Spur 
auf der Diskette aus. Auch bei der Dar¬ 
stellung der Sektordaten bestehen ins¬ 
gesamt vier Möglichkeiten: 

— ASCII-Darstellung 

— HEX-Darstellung 

— HEX- und ASCII-Darstellung ne¬ 
beneinander 

— Hex- und ASCII-Darstellung unter¬ 
einander. 

In jedem der drei Editiermodi sind fol¬ 
gende weitere Möglichkeiten wählbar: 

— Darstellung der Daten im Dezimal-, 
Oktal- oder Binärsystem. 


- Disassemblierung eines Assembler¬ 
programms sowie Listen eines 
BASIC-Quellprogramms. 

- Hilfsmittel, z.B. Datenbereiche ko¬ 
pieren, herausschneiden, einfügen, 
auffüllen , suchen und ersetzen. 

- Auswahl der Sektorreihenfolge 
(physikalisch oder logisch). 

- Aufruf eines kleinen Rechners mit 
den Grundrechenarten und Um¬ 
wandlung binärer, dezimaler und 
hexadezimaler Zahlen. 

- Ausdruck der aktuellen Bildschirm¬ 
seite 

Dies sind nur ein paar Beispiele. Eine 
komplette Auflistung würde den Rah¬ 
men dieses Reviews sprengen. Ein 
Zwischenresümee läßt sich schon an 
dieser Stelle ziehen. Allein der Editor¬ 
teil von DISCOLOGY läßt keine Wün¬ 
sche hinsichtlich der Benutzerfreund¬ 
lichkeit auf der einen Seite und den vie¬ 
len Anwendungsmöglichkeiten auf der 
anderen Seite offen. 


Kopieren ohne Wenn und Aber 


Das Problem des Arbeitens mit teuren 
Originaldisketten ist bekannt. Viele 
Disketten sind jedoch kopiergeschützt 
und der Anwender ist gezwungen, tag¬ 
aus, tagein mit seinem einzigen Origi¬ 
nal zu arbeiten. Das Kopiermodul von 
DISCOLOGY ermöglicht dem An¬ 
wender, sich schnell und einfach Si¬ 
cherheitskopien auch von geschützten 
Disketten anzufertigen. Nach Auskunft 
von PR8-SOFT wurde für die Version 
3.0 bisher keine Diskette gefunden, 
von der sich keine Sicherheitskopie an¬ 
fertigen ließ. 

Leider standen uns zum Zeitpunkt des 
Tests nur einige geschütze Programme 



In einer Branche, die von Softwarepiraten, Raubkopierern und anderen 
unlauter praktizierenden Z.eitgenossen nur so wimmelt, feiert der Kopier¬ 
schutz fröhliche Urstände. Manchmal sind Kopierprogramme der einzige 
Weg zu einer Sicherheitskopie 



Discology ist aber nicht nur ein Kopierprogramm, es verbirgt sich mehr 
dahinter. Mit integriertem Disc-Editor und Monitor, und einer Option 
Datenstrukturen auf Disc sichtbar zu machen, stellt Discology eines der 
hilfreichsten Utilities dar, die der Markt momentan zu bieten hat. 
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zur Verfügung, die sich jedoch ohne 
Ausnahme kopieren ließen. Im Ultra- 
Copy-Modus verarbeitet das Kopier¬ 
modul z.B. künstlich erzeugte Fehler¬ 
meldungen, Formatierungen jedweder 
Art, mögen sie auch noch so exotisch 
sein. GAPs werden gelesen, ihre Län¬ 
ge und eventuell ihr Inhalt gelesen und 
entsprechend geschrieben. Neben CPC- 
Disketten lassen sich auch JOYCE- 
Formate und sogar MS-DOSFormate 
duplizieren. Voraussetzung ist hierfür 
ein entsprechendes 5 l/4Zoll Laufwerk 
und Diskettenformatierung einseitig, 
40 Spuren. Bei VORTEX unter VDOS 
funktioniert es leider nicht. Speicherer¬ 
weiterungen hingegen werden voll un¬ 
terstützt. 

Bei einem genügend großen Speicher¬ 
bereich lassen sich Disketten auch mit 
nur einem Laufwerk ohne Wechsel von 
Quell- und Zieldiskette in einem 
Durchlauf kopieren. Neben dem Mo¬ 
dus UltraCopy bietet das Kopiermodul 
noch weitere interessante Schmankerl: 

- Kopieren von ungeschützten Dis¬ 
ketten. 

- Auslesen der Formatierung und der 
Sektordaten der Diskette. 

Zum letzten Punkt ein Beispiel: 

Sect08: ID(OB,00,CI,02) 

- Der Sektor ist der achte auf der Spur 
11 (OB hex). 

- Er befindet sich auf Seite 0 des Lauf¬ 
werkes. (00) 

- Er hat die Nummer 191 (CI hex) 

- Er ist 512 Bytes lang (512 =128*2 
hoch 02) 

Zusätzlich werden noch Fehlermeldun¬ 
gen zu den einzelnen Sektoren gezeigt, 
soweit vorhanden. 

- Formatieren von Disketten im Data 
und Vendor-Format. 

- Kopieren, Löschen und Umbenen¬ 
nen einzelner Files 

- Änderung der File-Attribute 

- Directory 

- Auswahl von Quell- und Zieldaten¬ 
träger: Diskette oder Kassette. 


Auch hier müssen wir abbrechen, denn 
die Liste der Möglichkeiten ist noch 
lange nicht beendet. Der gute Ein¬ 
druck, den uns das Editiermodul ver¬ 
mitteln konnte, ist durch das Kopier¬ 
modul nicht nur erhalten geblieben, 
sondern wurde durch das hervorragen¬ 
de Kopiermodul noch weiter vertieft. 


Wie’s drinnen aussieht, 
geht niemand was an... 


Das dritte Modul von DISCOLOGY 
macht die Struktur und die Belegung 
von Disketten sichtbar. Zwei Verfah¬ 
ren stehen zur Wahl: 

— Die Diskette wird Spur für Spur un¬ 
tersucht. Jeder Sektor wird einzeln 
analysiert und charakteristische 
Sektordaten werden angezeigt. 

— Die Erstellung eines Diskettenbele¬ 
gungsplanes anhand der Daten des 
Directory s. 

Für jeden Sektor wird angezeigt, ob er 
frei ist, oder von welchem File er be¬ 
legt ist. Weiterhin lassen sich auch nur 
Sektoren eines bestimmten Files mar¬ 
kieren. Auch das dritte Modul fand den 
einhelligen Beifall der gesamten Re¬ 
daktion. Fazit: ein Superprogramm. 


Das Handbuch 


Schon nach dem ersten Durchblättern 
stellt der unbedarfte Anwender fest, 
daß lange und intensiv an der ca. 
40-seitigen Anleitung gefeilt worden 
ist. Neben exakten Anleitungen zu den 
einzelnen Modulen wird viel Hinter¬ 
grundinformation zur Diskettenorgani¬ 
sation geliefert. Ein umfangreiches 
Stichwortverzeichnis ermöglicht das 
Auffinden vieler Begriffe. Neben der 
Anleitung läßt sich das Handbuch 
ebenfalls sehr gut als Nachschlagewerk 
benutzen. 


Kopierschutz 
und Update-Service 


Wie schon erwähnt, läßt sich DISCO¬ 
LOGY nicht kopieren. Geliefert wird 
das Programmpaket als doppelseitige 
Kopie. Sollte eine Diskette im Laufe 
der Zeit jedoch beidseitig nicht mehr 
verwendbar sein, bietet PR8-SOFT ei¬ 
nen Austausch-Service an. Gegen 
Rückgabe der defekten, sowie einer 
leeren Diskette erhält der Kunde einen 
kostenlosen Ersatz. Ein Beispiel von 
Kulanz, welches Schule machen sollte, 
dies ist unsere Meinung. 

Ein Update-Service wird ebenfalls an- 
geboten. Neue oder erweiterte Versio¬ 
nen, deren Erscheinen bekanntgegeben 
werden können gegen einen Preis von 
20,- Mark und Rückgabe von Original¬ 
diskette und Handbuch erworben 
werden. 


Fazit 


Mit DISCOLOGY von Meridien Infor- 
mätique hat PR8-SOFT erneut einen 
Volltreffer gelandet. Schon nach kur¬ 
zer Arbeit mit dem Programmpaket 
war die gesamte Redaktion begeistert 
von der Vielzahl der Anwendungsmö¬ 
glichkeiten und der Benutzerführung. 

Nutzeffekt Bediönungs- Doku- Grafik Arbeiis- Preis/ 

freundlichkeM menlalion geschwinUig- Leistung 



Bei einem Preis von 99, — Mark erhält 
der Anwender ein Softwarepaket, wel¬ 
ches momentan auf dem Markt keinen 
Konkurrenten findet. Kurzum: 
DISCOLOGY ist momentan das CPC- 
Disc-Tool schlechthin. H-W. Fromme 




SCANNER - NEW5DE5K 
WEB - LOCO 2.0 - M0U5E 
SUPERTYPE - und mehr 


040-6 411773-90 


WERDER 


Bramfelder Ch. Z15 / 2000 Hamburg 71 


Computer-Shop 

Drawehner Str. 15 3130 Lüchow Tel. 05841 / 5499 


PC 1640 MD/SD 

1495,00 

PC 1640 MD/DD 

1898,00 

JOYCE PCW 5256 

998,00 

CPC 6128 • grün 

749,00 

NEC P6 

1148,00 

NEC P6 Color 

1398,00 


Farbband Joyce 16,90 

Disketten 3" 

Maxell CF 2 10 St. 65,00 

Disk. 3 1/2" 2D 10 St. 37.00 

Disk. 5 1/4" MD 2D 10 St. 9,90 
Diskettenbox für 100 St. 5 1/4" 17,90 

Joystick Compelition Pro 24,90 


Spiele.Hardware.Software.Literatur.Spiele. 

NEU!! Wir liefern Druckerfarbbänder im Austausch NEU!! 

zum Preis von DM 8,50 (zuzüglich Porto) 

NEU!! Bitte Band mit DM 8,- + 2 - Porto an uns schicken NEU!!! 
Versand erfolgt bei Vbrauskasse ohne Nebenkosten. 8ei NN-Vfersand zuzüglich DM 3,50 Versandpauschale 
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High Profitier 

Hersteller: Activision 
Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Monitor: Farbe/Grün 
Preis: Disk. 49.90/Kass. 39.90 DM 

CPC 464 Kl CPC 664 K CPC 6128 Kl 

SDI, kaum ein anderes Thema erhitzt 
die Gemüter dies und jenseits des At¬ 
lantiks mehr, als die Idee einer Satelli- 
ten-gestützten Verteidigungsanlage im 
Erdorbit. Weltweite Bekanntheit er¬ 
langte dieses Projekt der USA unter 
dem Titel “Star Wars Konzept“. Ob¬ 
wohl die Diskussionen um dieses Pro¬ 
jekt immer noch die Gemüter in Auf¬ 
ruhr versetzen, hielt Activision die Zeit 
für ein SDI-Spiel gekommen. High 
Frontier, so nennt sich das Produkt, 
versetzte unsere Redaktion ein wenig 
in Aufruhr. Nicht, daß wegen dieses 
Spieles Palastrevolutionen vom Zaun 
gebrochen worden wären, schlicht und 
ergreifend, das brisante Thema ent¬ 
flammte die Gemüter. 

Als Spieler übernehmen Sie in High 
Frontier die Rolle eines Ressortleiters, 
dessen Aufgabe die Entwicklung, Kon¬ 
trolle und der Einsatz eines SDI-Ver- 
teidigungssystems ist. Sie beginnen das 
Spiel mit einem bestimmten Budget, 
mit dem Sie zuerst einmal die benötig¬ 
ten Systeme entwickeln müssen. Wäh¬ 
rend Ihre Forscher daran arbeiten, ha¬ 
ben Sie die Möglichkeit, Spionage zu 
betreiben und herauszubekommen, 
wieviele Sprengköpfe die Gegenseite 
bereits stationiert hat. Dementspre¬ 
chend können Sie die Entwicklung Ih¬ 
rer Waffen vorantreiben. Währenddes¬ 
sen bleibt Ihnen auch immer die Mög¬ 
lichkeit, die momentane weltpolitische 
Situation auf einem Statusscreen zu be¬ 
gutachten. In einem kleinen Barometer 
läßt sich hier die Wahrscheinlichkeit 
einer atomaren Auseinandersetzung 
ablesen. 

Ist es Ihnen gelungen, eines der SDI- 
Waffensysteme zu entwickeln und zu 
produzieren, müssen Sie es dann noch, 
mittels einer Trägerrakete, im Erdorbit 
stationieren. Da die Gegenseite leider 
auch hier von den bösen Russen ver¬ 
körpert — dauernd nachrüstet, müssen 
Sie ebenfalls dauernd neue Waffen pro¬ 
duzieren und installieren. 

Wie in der Realität, so schraubt sich 


Nicht nur in den Me¬ 
dien ist SDI perma¬ 
nent aktuell. High 
Frontier nennt sich 
ein neues CPC-Spiel, 
dessen Inhalt eine 
Monopoly-artige 
Aufbereitung der 
SDI-Problematik 
darstellt. Sie begin¬ 
nen mit nichts als ei¬ 
nem Kongreßbe¬ 
schluß und einem 
mageren Budget. 
Ziel: Ein funktions¬ 
tüchtiges Abwehrsy¬ 
stem im Weltraum. 



auch in diesem Spiel das Potential der 
Sprengköpfe von Zug zu Zug in die 
Höhe, bis irgendwann einmal, irgend 
jemand einen Krieg vom Zaum bricht. 
Glücklicherweise bleibt die Auseinan¬ 
dersetzung der Großmächte auf dem 
CPC ohne Opfer. Aber, sind erst ein¬ 
mal alle Raketen explodiert, abgewehrt 
oder was auch immer, so zieht der 
Rechner Resümee. Bei einem unserer 
kleinen Testkriege, die wir mit High 
Frontier führten, sah das so aus: Insge¬ 
samt abgefeuerte Raketen 1190, ausge¬ 
rüstet mit 2380 Sprengköpfen. Insge¬ 
samt detonierten 4250 Sprengköpfe 
und auf amerikanischem Boden wur¬ 
den 104 Städte vernichtet. 

Von der Art und Weise wie High Fron¬ 
tier gespielt wird, erinnert es stark an 
Brettspiele, da jeder Zug circa den 
Zeitraum eines Monats darstellt. Kon¬ 
trolliert wird das Ganze durch ein Me¬ 
nüsystem, das für jeden Belang einen 
eigenen Screen bereitstellt. Der eher 
behäbige Spielablauf wendet sich, so¬ 
bald ein Atomschlag ausgelöst wurde. 
Ab da läuft alles in Echtzeit ab. 

Spielidee Bedienung»- Doku- Grafik Sound Prois/ 

freundlichkeU menlBllon Leistung 



Sicherlich, High Frontier ist korrekt 
programmiert, grafisch ganz in Ord¬ 
nung und auch sonst recht passabel ge¬ 
staltet. Uns jedoch erschien das Ganze 
reichlich geschmacklos und als die Sta¬ 
tistik des Atomschlages eingeblendet 
wurde, konnte manch einer ein mulmi¬ 
ges Gefühl in der Magengegend nicht 
unterdrücken. Denn betroffen macht, 
daß hier nicht übertrieben wird. 

(HS) 


Thundercats 

Hersteller: Elite 
Vertrieb: Fachhandel 
Monitor: Farbe/Grün 
Steuerung: Joystick/Tastatur 
Preis: ca. 39,— DM 

CPC 464 KI CPC 664 Kl CPC 6128 KI 

Sollten Sie einen Job suchen, in dem 
man noch Karriere machen kann, ver¬ 
suchen Sie es doch einmal als Spiel- 
zeugfigürchen. Ob nun “Masters of the 
Universe“, “Mask“, “Gobots“ oder 
“Transformers“, alles Spielzeuge, die 
Karriere gemacht haben. Als Comic, 
als TV-Serie, als Kinofilm oder als 
Computerspiel. Die Donnerkatzen rei¬ 
hen sich dann auch nahtlos in diese illu- 
stre Gesellschaft ein. Als Püppchen er¬ 
blickten sie das Licht der Welt und, in¬ 
zwischen gibt es sogar Thundercats¬ 
kaugummi. Wie es bei derartigem 
Spielzeug üblich ist, wird gleich eine 
ganze Welt, inklusive Historie und Bö- 
sewichter, mitgeliefert. Ein Umstand, 
der den Leuten, die dann das Compu¬ 
terspiel machen, entgegen kommt. 
Brauchen sie sich doch das Hirn nicht 
zu zermartern, um eine halbwegs pas¬ 
sable Hintergrundstory zustande zu 
bringen. 

Da es die Thundercats hierzulande erst 
und ausschließlich als Computerspiel 
gibt, bleiben uns tiefere Einblicke ins 
Donnerkatzen-Universum verwehrt. 
Was wir sicher wissen, ist das Mumm- 
Ra, der Immerlebende, ein Juwel ent¬ 
wendet hat, dessen Kräfte für die 
Thundercats enorm wichtig sind. Die¬ 
ses Juwel, das Auge Thunderas, ver¬ 
leiht den sieben Mitgliedern der Thun¬ 
dercats ihre Kräfte und sorgt insbesonde¬ 
re dafür, daß das Schwert der Chef Don¬ 
nerkatze, das Schwert der Omen, seine 
Macht behält. Sicherlich werden Sie nun 
denken: Katzen, Spielzeug, Schwerter? 
Wie paßt das alles zusammen. Nun, die 
Donnerkatzen sind keine Katzen im 
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NUERNBERG 


WUPPERTAL 


für CPC 464 • 664 ■ 6128 

Diskette 3" 29, - DM 

- kann eine unbegrenzte Anzahl von Fragen und Antworten verwalten! 

- hat ständig ca 400 Fragen plus Antworten im Speicher 

- bietet die Möglicnkeit, eigene Fragen einzugeben, und zwar mit einem 

komfortablen Editor! 

- besitzt eine Supergrafik mit Window-Technik! 

- ist vollkommen menuegesteuert! 

- zeigt bis jetzt noch nie dagewesene Tricks mit dem Videocontrolleri 

- stellt zu jeder Frage 5 mögliche Antworten vor! 

- kann man mit der ganzen Familie spielen, da jeder eine Mindest-Chance von 1-5 hat! 

- muß man mit Strategie spielen, da der Beste in jedem Wissensgebiet am Ende noch Zusatzpunkte 
oekommt! 

- wurde mit äußerst schnellen Suehrautinen ausgestattet, die verhindern, daß eine schon richtig be¬ 
antwortete Frage nochmals erscheint! 

- ist spielbar mit 1-4 Einzelspielern oder in Gruppen mit einem Viellachen davon! 

- erkennt automatisch, welche Fragenblöcke auf der Diskette noch unbeanlwortet sind! 

- zeichnet sich nicht nur durch die og. Punkte als höchst zukunftssicher aus! 



In den Tiefen der Galaxis 
wartet die letzte 
Herausforderung auf Sie 

Der Zoilherr. ein Wesen aus den Tiefen des Wellraums, 
hat einen komischen Wettbewerb ausgeschrieben 
um Blwas Zerstreuung in sein unendlich langes 
Leben zu bringen: Den STARTEST. 

Dor Preis sind zusätzliche Lebensjahre Jede Intelligenz 
ob Spinnenwesen von Adahis, ob Mensch von der 
Erd» oder Schielende Steine von Murks, können 
leilnehmen Doch vor aem ersehnten Preis 8 Prü¬ 
fungen. die sowohl die Intelligenz als auch 
die Geschicklichkeit testen 

Nur wenige können sie alle bestehen, aber wor es schabt, 
dam winkt eine Verlängerung seine' Lebensapsnre 


für CPC 464 - 664 - 6128 

Kassette 24, - DM 

Diskette 3" 29, - DM 


CPC Power-Spiele-Paket! 

18 tolle Spiele für Ihren CPC 464, 664 oder 6128 auf 
4 Kassetten bzw, 3“-Disketten zum Knüllerpreis von nur 
50,- DM (4 Kassetten) 

70,-DM (4 Disketten) 

nur solange z / / 

Vorrat reicht 



Platinenservice 


Für Ihren CPC 

Die CPC-Schneiderware ist ein universelles 
Peripheriesystem für die Schneider CPC's auf 
der Basis des bekannten ECB-Bussystems. 
Um die Schneiderware an Ihren CPC anzu¬ 
schließen, benötigen Sie: 

1. Das Verbindungskabel vom Expan¬ 
sionsport des Rechners zur Basisplatine 
{Rechnertyp beachten, da Anschlüsse bei 
464/664 verschieden von 6128 sind). 

2. Die Basisplatine, welche die Pinbelegung 
der CPC-Ports aut die des ECB-Systems 
umsetzt. Die Karte enthält tunt Steckplätze 
zur Aufnahme und gleichzeitigen An¬ 
steuerung der Schneiderware-Erweite¬ 
rungskarten. 

Wollen Sie nur eine Karte betreiben, so 
können Sie diese über ein selbstgefertig¬ 
tes Kabel an den CPC anschließen. Die 
Anschlußbelegung dieses Kabels sehen 
Sie in Heft 7/86, S 61. 

Das verwendete Platinenmaterial ist glas¬ 
faserverstärktes Epoxydharz; die beidsei¬ 
tig beschichteten Platinen sind chemisch 
durchkontaktiert. Für die Fertigbausteine 
kommen Bauteile erster Wahl zum Ein¬ 
satz 


Die Preise 


Basisplatine, unbestückt 

24,90 DM 

dto., bestückt 

62,90 DM 

Kabel 464/664 

35,90 DM 

Kabel 6128 

45,90 DM 

Centronics, unbestückt 

17,90 DM 

dto., bestückt 

79,90 DM 

V/24, bestückt 

139,90 DM 

Netzteil, unbestückt 

17,90 DM 

dto, bestückt 

119,90 DM 

Trafo 

79,90 DM 

Karte und Trato 

184,90 DM 

Hardware-Uhr, unbest. 

29,80 DM 

Hardware-Uhr, bestck. 

99,90 DM 

PIO-Karte, Karte bestck. 

198,90 DM 

MIDI-Interf., Plat, unbest 

39,90 DM 

MIDI-Interf., kompl. best. 

198,00 DM 

A/D-D/A Wandl., funktionsf 

169,90 DM 

EPROM/RAM-Karte 


funktionsfertig 

229,90 DM 

Eprommer-Karten 


{2 Karten, bestückt) 

198,90 DM 


Copyshop 

Das universelle Hardcopy-Programm 
für Schneider CPC 464/664/6128 

Autor: Matthias Uphoff 



* COPYSHOP Im Detail: 

- Hardcopy in 4 (!) Formalen: DIN A4, DIN A5.13.5x 8.5cm und 
21.5* 13,5 cm 

- superschnelle Hardcopy-Houline: DIN A4 in ca 4 Minuten (DMP 4000) 

- arbeitet in allen 3 Modes 

- AnpaBmenue für JEDEN Epson-kompaliblen Drucker 

- läult ebenfalls mit den Seikosha-Druckern GP-500 CPC. GP-550 CPC und GP-IOOO CPC 

- Anpassung an Drucker möglich, die mit 1280 Punkten pro Zeile arbeiten, z B CPA-80 GS 

- Okimale ML 182 - Anpassung kann beim Verlag angelordert werden 

- Anpassung auch tgr Drucker, die die Bitbild-Bytes verkehrt herum drucken (das MSB unlen statt 
oben), z B NEC P2-Pinwriter. 

- 32 Farbrasier über Menue wählbar 

- Graltkeditor 

- komfortable Pull-Down-Menues 

- schnelle Fill-Rouhne 

- beliebige Ausschnittvergrößerungen 

- Bildschirm invertieren 

- selbstrelozierbare Hardcopy-Routinen tür eigene Programme 

- neue Save- und Load-Routinen erkennen automatisch Mode und Farbwerte 

- Freezer - saved auf Tastendruck Screenshcks aus laufenden BASIC-Programmen. die anschließend aus- 
gedruckl werden können 

‘ Das auf dem Datenträger mitgelielerle Programm -Screen Save- welches beliebige Screens auf Disk 
abspeichert, arbeitet nur nach Enllernen des Vbrtex-Conlrollers 


Und die Weltneuheit: Hardcopy-Simulator auf dem Bildschirm!! 

Sie können sich Ihre Hardcopy vor dem endgültigen Ausdruck auf dem Bildschirm an- 
sehen! 

COPYSHOP ist das ultimative Hardcopy-Programm für alle Schneider Computer. 

Erhältlich auf Kassette (DM 59,-) und 3"-Diskette (DM 69, -) 

inkl. ausführlicher Bedienungsanleitung (unverbindliche Preisempiehiung) 


Bestellkarte ausfüllen und absenden an: 

DMV Daten- und Medien-Verlagsgesellschaft mbH 
Postfach 250 • Fuldaer Str. 6 

3440 Eschwege • Tel. (05651) 8702 
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Aus welcher Kata¬ 
kombe er nun her¬ 
vorgekrochen ist 
weiß niemand so 
recht, auf jeden Fall 
hat er das magische 
Auge von Thundera 
geklaut. Er, das ist 
Mumm Ra, der Im¬ 
merlebende. Lion-o, 
der Oberheld der 
heldenhaften Don¬ 
nerkatzen macht sich 
sogleich auf den 
Weg, um dem staubi¬ 
gen Uralt-Finsterling 
mit seinem “Schwert 
der Omen “ kräftig 
auf die knochigen 
Griffel zu hauen. 



eigentlichen Sinne. Es sind Hybriden, 
Menschen mit katzenähnlichen Körper¬ 
merkmalen, wie beispielsweise Schlitz¬ 
pupillen und krallenartige Fingernägel. 
Nun wissen Sie über das Außenherum 
des Spiels eigentlich genug. Sicherlich 
interessiert Sie jetzt, wie sich das Ganze 
auf dem Monitor darstellt. 

Sie, mal wieder Sie, übernehmen die 
Rolle von Lion-O, der Chef-Donnerkat¬ 
ze. Lion-O’s Aufgabe besteht darin, bis 
zu Mumm-Ra’s Sanktuarium vorzudrin¬ 
gen und ihm dort das Auge Thunderas zu 
entreißen. Der Weg dorthin führt vorbei 
an den Wächtern des Immerlebenden. 
Lion-O muß durch verschiedene Zonen, 
die sich auf dem Monitor als vertikal 
scrollende Szenarien darstellen. Gleich 
vorweg, die Grafik und das Scrolling 
sind für CPC Verhältnisse vom Feinsten. 
Auch der Sound ist wirklich gelungen. 
Lion-O’s Aufgabe besteht darin, die ein¬ 
zelnen Zonen (Levels) so unbeschadet 
wie möglich zu durchqueren. Daß sich 
dort Unmengen von Finsterlingen aufhal¬ 
ten, die es abzuwehren gilt, ist selbstver¬ 
ständlich. Je nach Zone müssen Sie sich 
mit Fledermäusen, Wildschweinmen¬ 
schen, Wächtern und vielerlei anderen 
Gefahren auseinandersetzen. 

SfMUtfee Bedienung*- Doku- Qi&ik Sound Preis/ 

freundlichkeil «nerua'.ion Leistung 



Neben Ihrer Hauptaufgabe können Sie 
zwischen den einzelnen Spielstufen ver¬ 
suchen, Ihre Kameraden aus der Gefan¬ 
genschaft Mumm-Ra’s zu befreien. Auch 
bei dieser Mission müssen sie durch ein 
scrollendes Szenario, nur daß Sie dies¬ 
mal nur eine Chance haben. Scheitert 
Lion-0 dabei, kehrt er sogleich zu seiner 


eigentlichen Aufgabe zurück, und dringt 
weiter in Richtung Mumm-Ra’s Sanktua¬ 
rium vor. 

Unser Urteil in aller Kürze: Spielbar, 
spannend, fesselnd, einfach edel! (HS) 

XOR 

Hersteller: Logotron 
Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Monitor: Farbe/Grün 
Preis: ca. 59, - DM 

CPC 464 & CPC 664 K CPC 6128 B 

Xor ist ein Labyrinthspiel und nichts an¬ 
deres. Ohne sich lange mit irgendwel¬ 
chen Hintergrundstorys zu beschäftigen, 
kommt man hier sogleich zur Sache. In 
fünfzehn verschiedenen Irrgärten wur¬ 
den jeweils eine bestimmte Anzahl von 
Masken verstreut. Die Aufgabe des Spie¬ 
lers besteht darin, alle Masken aufzusam¬ 
meln. Natürlich erwartet den Spieler in 
den einzelnen Levels mehr als ein Irrgar¬ 
ten und darin verteilte Masken. Bereits 
im zweiten Level tauchen Hühner und Fi¬ 
sche auf. Diese hüpfen bzw. schwimmen 


zwar nicht durch das Labyrinth, sorgen 
allerdings auf ihre Art dafür, daß Xor 
nicht langweilig wird. Die Hühner haben 
die Eigenschaft, sobald es ihnen möglich 
ist, nach links zu rutschen und zwar so 
weit, bis sie an ein Hindernis stoßen. Der 
Spieler kann mit seiner Spielfigur die 
Hühner verschieben, aber nur nach oben 
oder unten. Mit den Fischen verhält es 
sich ähnlich, nur daß sie, sobald möglich, 
nach unten rutschen und sich nur nach 
links und rechts verschieben lassen. Je 
nach Level tauchen außer Fischen und 
Hühnern noch Bomben, Püppchen, Kar¬ 
ten und Transmitter auf. Jedes dieser zu¬ 
sätzlichen Spielelemente bringt eine eige¬ 
ne, spezielle Eigenschaft mit ins Spiel. 

Eines wird der Spieler allerdings vergeb¬ 
lich suchen: herumlaufende Böse w ich- 
ter. Xor hat kein Zeitlimit, keine Actio¬ 
nelemente keine Untiere. Der Spieler 
muß sich voll und ganz darauf konzen¬ 
trieren, die logisch aufgebauten Rätsel 
im Irrgarten zu meistern. Das heißt im 
Klartext, alle Masken einsammeln. 
Denn, um in das nächste Level zu gelan¬ 
gen, muß der Spieler durch eine Tür und 
die öffnet sich halt erst, wenn alle Mas¬ 
ken verschwunden sind. 

Die Maskensuche wird durch den Um¬ 
stand, daß der Spieler zwei Spielfiguren 
kontrollieren muß, noch zusätzlich er¬ 
schwert. Einige der Probleme wurden 
nämlich so gestaltet, daß es der gemein¬ 
samen und koordinierten Anstrengung 
beider Figuren bedarf, um sie zu lösen. 

Jeder Irrgarten ist mindestens 16 Bild¬ 
schirme groß. Wandert man mit seiner 
Spielfigur umher, folgt der Bildschirm 
scrollend. Das Scrolling erreicht für 
CPC-Verhältnisse erstaunliche Ge¬ 
schwindigkeiten. Sound wird man in Xor 
vergeblich suchen, tatsächlich ist es so¬ 
gar ganz in Ordnung, daß er fehlt, da ja 
knochenharte Kopfarbeit angesagt ist und 
irgendwelche dauernd quäkenden Melo¬ 
dien nur unnötig nerven und ablenken. 



Xor ist das endgülti¬ 
ge Labyrinthspiel, 
und das nicht nur, 
weil es auf der 
Packung steht. Das 
Spiel selbst ist leicht 
bis simpel. Sie müs¬ 
sen nur alle Masken 
in einem Ixibyrinth 
einsammeln, dies ist 
schnell erlernt. Je¬ 
doch spätestens in 
Level 2 werden Sie 
feststellen, daß Sie 
hier nur mit messer¬ 
scharfem Verstand 
weiterkommen. 
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Xor ist sehr logisch aufgebaut, schnell 
erlernt und einfach zu spielen. Aller¬ 
dings werden die Irrgärten immer 
schwieriger, und bereits im zweiten 
Level wird man einige Stunden sitzen, 
bis man hindurch gelangt ist. 

sc*«««* Bfidiemings- Doku- Grafik Sound Prelsf 

IreundltaMkeit menlaüon Leistung 



Unser Fazit: Ein Spiel für all die jeni- 
gen, die mit Actionspielen nicht viel 
am Hut haben. Hier ist Denken ange¬ 
sagt. Die Logotron-Programmierer ha¬ 
ben mit Xor bewiesen, daß es möglich 
ist, faszinierende Spiele zu machen, 
ohne auch nur ein einziges Actionele¬ 
ment aufzunehmen. 

(HS) 


TRANTOR the last 
Stormtrooper 

Hersteller: Go! 

Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Monitor: Farbe/Grün 
Preis: ca. 39,- DM 

CPC 464 XI CPC 664 X CPC 6128 X 

Als er sich zu dieser Mission anheuern 
ließ, ahnte Trantor nicht, daß dies wohl 
der gefährlichste Job werden würde, 
für den er sich jemals verpflichtet hat. 
Eigentlich sollte er als Söldner an ir¬ 
gendeinem Krieg in der Galaxis teil¬ 
nehmen, also den Job tun, den er am 
besten beherrschte. Während des Tran¬ 
sits zum Kriegsschauplatz geriet der 
Truppentransporter in einen Asteroi¬ 
denhagel und mußte notlanden. Auf ei¬ 
nem kleinen öden Planeten begannen 
die Reparaturarbeiten. 


Trantor, Einzel- 
kämpfer und Besat¬ 
zungsmitglied eines 
interstellaren Trup¬ 
pentransporter sitzt 
mächtig in der Tinte. 
Durch eine Kollision 
mit einem Asteroiden 
wurde das Schiff zur 
Notlandung gezwun¬ 
gen. Auf einem klei¬ 
nen Planeten begin¬ 
nen die Reparaturen. 
Doch so leblos und 
tot wie die kleine 
Welt vom Raum her 
anmutete ist sie 
nicht, irgendwo lau¬ 
ert etwas auf die 
Raumfahrer. 



Während der Transporter sich sozusa¬ 
gen im Trockendock befand, machte 
der Rest der Truppe sich daran, die 
Ruinen zu untersuchen, die man wäh¬ 
rend des Landeanfluges auf dem Scan¬ 
ner entdeckt hatte. 

Schon bald stellten die Männer fest, 
daß die Ruinen auf der Oberfläche nur 
der Gipfel des Eisberges waren. Unter¬ 
irdisch entdeckten sie eine vollkommen 
intakte, aber auch vollkommen verlas¬ 
sene, hochtechnisierte Station, dere- 
nursprüngliche Verwendungszwecke 
den Männern verborgen blieben. 

Nach wenigen Tagen war der Trans¬ 
porter wieder hergestellt, und die Män¬ 
ner machten sich ein letztes Mal vor 
dem Start auf, um die unterirdischen 
Anlagen noch einmal zu erkunden. 
Diesesmal drang man tiefer als je zuvor 
in die lange verlassenen Stollen und 
Korridore ein. Die Männer entdeckten 
Hangars, in denen Raumschiffe stan¬ 
den die keiner von ihnen jemals zu Ge¬ 
sicht bekommen hatte. Gewaltige 
Schiffe, die so aussahen, als stünden 
sic seit Jahrhunderten hier. 

Aber die Zeit drängte und die Männer 
konnten diese Anlagen leider nicht ge¬ 
nauer untersuchen. 


Plötzlich hörte die Truppe ein Ge¬ 
räusch; ein Geräusch, das ganz be¬ 
stimmt von keinem in ihren Reihen 
verursacht worden war. 

Ohne Vorwarnung flutete Licht durch 
die bisher leblose Anlage, aus allen 
Richtungen schwebten plötzlich Si- 
cherheitsdroiden auf Sie zu. Und das 
unheimliche Geräusch aus der Tiefe 
der Anlage steigerte sich zu einem im¬ 
mer näherkommenden Brüllen. 

Während seine Kameraden wie in Pa¬ 
nik zurück zum Schiff jagten, behielt 
Trantor ruhiges Blut und versiegelte 
die Außenschotts der geheimnisvollen 
Anlage, so daß das, was dort drin war, 
nicht mehr herauskonnte. Nun würde 
der Transporter gefahrlos starten kön¬ 
nen, vielmehr war das Schiff schon ge¬ 
fahrlos gestartet, man hatte ihn einfach 
auf diesem öden Planeten zurückge¬ 
lassen. 

Doch Trantor war niemand, der ein¬ 
fach so verzweifelte, nüchtern analy¬ 
sierte er seine Lage. Die einzige Mög¬ 
lichkeit, diese triste Welt zu verlassen, 
waren die Schiffe in der unterirdischen 
Anlage. Eines von ihnen würde er wohl 
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aktivieren müssen. Doch dazu mußte 
er wieder dort hinein, zu den Sicher- 
heitsdroiden, der automatisierten Ab¬ 
wehranlage und dem monströsen brül¬ 
lenden Etwas, das mit Sicherheit ir¬ 
gendwo dort unten auf ihn lauem wür¬ 
de. Trantor ist, das muß gesagt 
werden, wohl eines der besten Spiele, 
die es auf dem CPC jemals gegeben 
hat. Es hat tatsächlich das Zeug, um ein 
Evergreen zu werden. Übernehmen Sie 
die Rolle Trantors. Bewaffnet mit ei¬ 
nem Flammenwerfer müssen Sie die 
Anlage Stockwerk für Stockwerk nach 
Terminals untersuchen. Dort erhalten 
Sie die Teile eines Codes, mit dem Sie 
am Ende der Mission die Anlage ver¬ 
lassen können. 

Das Spiel selbst ist denkbar einfach. 
Sie müssen Trantor durch die vertikal 
scrollenden Korridore steuern. Wäh¬ 
renddessen gilt es, die überall herum- 
geisternden Wachdroiden mit dem 
Flammenwerfer zu vernichten, zwi¬ 
schendurch nicht vergessen, die Ter¬ 
minals und Schränke zu untersuchen 
und immer tiefer in die Anlage vorzu- 
dringen. 


SpieMlee Bedonungs- Doku- Grafik Sound Pruis/ 

Iraundllcfikell menlalion Lesslung 



Die Grafik Trantors ist wahrlich atem¬ 
beraubend, im ersten Moment glaubt 
man, hier einen Spielhallenautomaten 
vor sich zu haben. Das Scrolling ist ab¬ 
solute Superklasse, die Figuren auf 
dem Monitor wirklich groß (ca. 5 cm!!) 
und absolut edel animiert. Sound ist 
trefflich programmiert und die An¬ 
fangsmelodie wurde wirklich passend 
gewählt. Gerade das einfache Spiel¬ 
prinzip macht Trantor so gefällig, zu¬ 
sammen mit der Grafik und dem Sound 
ergibt dies eine einmalige Mischung. 
Gehen Sie, besorgen Sie sich Trantor, 
Sie ärgern sich bestimmt, wenn Sie es 
nicht tun. (HS) 

MlfTANTS 

Hersteller: Ocean 
Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Monitor: Farbe/Grün 
Preis: ca. 39,- DM 

CPC 464 K CPC 664 Kl CPC 6128 K 

In fernster Zukunft wird ein verheeren¬ 
der Krieg zwischen zwei Gruppen von 
Menschen toben. Seit sechshundert 
Jahren dauert diese Auseinanderset¬ 
zung nun schon an. Der Grund, aus 


Eine Waffe, tödli¬ 
cher, verheerender 
und unberechenbarer 
als alles, was wir 
kennen, Kobaltbom¬ 
be und Zyklon D ein¬ 
geschlossen, ist au¬ 
ßer Kontrolle. Mu¬ 
tanten , künstlich er¬ 
schaffen, und in 
verschiedene, aufs 
Schärfste gesicherte 
Zonen gebannt, dro¬ 
hen auszubrechen. 
Die Waffe dieser 
Mutanten ist ihr Kör¬ 
per, Werden sie an¬ 
gegriffen, nehmen 
sie eine andere Form 
an. 



dem der Krieg ausgebrochen ist, ver¬ 
sank schon lange im Dunkel des Ver- 
gessens, und eigentlich hätten beide 
Parteien schon längst wieder Frieden 
geschlossen, wenn da nicht die SZC 
wäre. Die Survivor Zero Corporation 
hat sich seit Urzeiten auf die Produk¬ 
tion und Entwicklung von neuen Waf¬ 
fensystemen spezialisiert und um auch 
immer einen Markt für die neuen Waf¬ 
fen zu haben, sorgt die SZC seit Ewig¬ 
keiten dafür, daß kein Frieden zwi¬ 
schen den rivalisierenden Parteien ge¬ 
schlossen wird. Doch den Betroffenen 
dämmert, daß da jemand versucht, den 
Frieden zu verhindern. Spione werden 
in die SZC eingeschleust. Bereits der 
erste Rapport der Infiltratoren zeigt 
den Emst der Lage. Die SZC hat ein 
neues Waffensystem entwickelt, das 
schon bald an beide Gruppen geliefert 
werden soll. Die Besonderheit an die¬ 
ser Waffe ist, daß sie, sobald sie einmal 
ausgelöst wurde, ganz von alleine ihr 
Vernichtungswerk fortsetzt. Es handelt 
sich dabei um makrogenetische Orga¬ 
nismen, die sich permanent verändern. 
Jede neue Form ist gefährlicher, 
schneller und wiederstandsfahiger als 
die vorhergehende... 

Steigen Sie ein, Ihr Rainbow Warrior 
wartet schon. Ihre Aufgabe wird es 
sein, in die Testzonen der SZC einzu¬ 
dringen. Da die Mutanten während ih¬ 
res Lebens 15 verschiedene Entwick¬ 
lungsstufen durchlaufen, wurden von 
der SCZ 15 verschiedene Testzonen 
geschaffen. Eine Zone für jede mögli¬ 
che Erscheinungsform der Mutanten. 
In jeder dieser Zonen, also bewacht 
durch die Mutanten, befindet sich ein 
Teil eines Sicherheitsschlüssels. Durch 
Kombinieren von allen fünfzehn 
Schlüsseln erhalten Sie Zugang zum 
Sanktuarium der SZC. Dort befindet 
sich die einzige Waffe, die in der Lage 
ist die Mutanten aufzuhalten. 
Grundsätzlich handelt es sich bei Mu- 


tants um ein Actionspiel mit vielen An¬ 
sprüchen an Geschicklichkeit und Stra¬ 
tegie. Um das Spiel zu lösen, ist es not¬ 
wendig, alle Testzonen einmal zu besu¬ 
chen, also werden Sie mindestens 
einmal mit jeder Erscheinungsform der 
Mutanten konfrontiert. Sie werden bei 
manch einer dieser Formen mehr als 
einmal versuchen müssen, auf welche 
Weise Sie ihr mit der richtigen Waffe 
beikommen können. Der Teil des 
Spiels, der in der SCZ-Zentrale spielt, 
wählt ein Labyrinth als Hintergrund, in 
dem der Spieler die Stelle suchen muß, 
an der die Teile des Sicherheitsschlüs¬ 
sels gebraucht werden. Natürlich lau¬ 
ern auch hier wieder eine Menge Geg¬ 
ner, die ihr Unterfangen verhindern 
sollen. Die Grafik des Spiels bricht kei¬ 
ne Rekorde, erfüllt ihren Zweck aller¬ 
dings vollauf. Besonders die unter¬ 
schiedlichen Mutanten und ihr jeweili¬ 
ges Verhalten sind sehenswert. Da Mu¬ 
tant ein Spiel ist, bei dem erst einmal 
ein paar Runden investiert werden 
müssen bis ein grüner Zweig in Sicht 
kommt, ist es recht angenehm, daß 
nach der Untersuchung eines Mutan¬ 
tengeheges erst einmal eine Ruhephase 
kommt, in der Waffen und Strategie 
neu angewählt bzw. neu überdacht 
werden müssen. 


Sp'Dadee Bedienung»* Doku- G-ahk Sound Preis/ 

‘reundlichko • menlalion Leislurg 



Sicherlich ist Mutants nicht gerade der 
Halleysche Komet am Computerspiel¬ 
himmel, aber die Programmierer ha¬ 
ben sich bemüht, ein Ballerspiel zu 
produzieren, das sich ein wenig abseits 
der ausgetretenen Genre-Pfade hält, 
und dort neue Wege findet. 
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PSI 5 Trcading 
Company 

Hersteller: US GOLD 
Vertrieb: Fachhandel 
Monitor: Farbe/Grün 
Steuerung: Joystick/Tastatur 
Preis: ca. 39,— DM 

CPC 464 IX! CPC 664 XI CPC 6128 X 

Willkommen bei Ihrem neuen Job. 
Nachdem Sie nun endlich Ihr Kapitäns¬ 
patent für Raumfrachter erster bis drit¬ 
ter Ordnung haben, erteilt die PSI 5 
Handelsgesellschaft Ihnen eine Han¬ 
del slizenz erster Ordnung. Ein passa¬ 
bles Schiff besitzen, Sie und das Zu¬ 
sammenstellen einer Ihren Anforde¬ 
rungen genügenden Crew sollte eben¬ 
falls zu bewerkstelligen sein. Sie 
können sich dann in das Handelszen¬ 
trum begeben und dort einen Auftrag 
annehmen. 

Ächz. Das Raumhandelsgewerbe ist 
nicht ohne; alleine der Schlauch durch 
alle Formalitäten am Raumhafen ist 
eine Tortur an sich. Doch dies alles ist 
nun endlich geschafft und ich sitze in 
der Brücke meines Handelsschiffes. 
Die Crew besteht aus vier Fremdwelt¬ 
lern und zwei Menschen, mir und Volf- 
gank, mein Maschinenmaat. Der Lade¬ 
raum ist bis zum Rand voll mit Lebens¬ 
mitteln für Riegel 6. Auf dem Weg 
dorthin müssen wir durch einen Sektor, 
der seit einiger Zeit von Raumpiraten 
unsicher gemacht wird. Naja, sollte es 
zu einer Auseinandersetzung kommen, 
ist ja immer noch Grolo an Bord, mein 
Waffenoffizier. Aber momentan sind 
die Piraten eigentlich meine geringste 
Sorge, viel wichtiger ist es, die Crew 
zu einem Team zu verschmelzen. 
Einstmals gab es ein Spiel, das etwas 
geschafft hat, was üblicherweise in der 
Softwarebranche nur sehr selten vor- 
kommt. Über mehr als zwei Jahre hin¬ 
weg behauptete es seinen Platz im obe¬ 
ren Drittel der Softwarecharts und er¬ 
lebte Adaptionen auf fast jedem rele¬ 
vanten Computertyp. Die Rede ist von 
Elite, jenem Spiel, das den Spieler in 
die Rolle eines handeltreibenden 
Raumschiffkapitäns versetzt. Trotz 
seines unerhörten Erfolges wurde Elite 
erstaunlicherweise fast nicht kopiert 
und es folgte auch nichts, was man hät¬ 
te als gebührenden Nachfolger be¬ 
zeichnen können. 

PSI 5 ähnelt Elite eigentlich nur in 
zweierlei Hinsicht, einmal ist das Spiel 
ausgesprochen komplex und außerdem 
dauert es, bis hier Langeweile auf¬ 
kommt. Wie eingangs geschildert, be¬ 
ginnt das Spiel damit, daß Sie sich eine 
Crew auswählen und zusammenstel¬ 
len. Insgesamt sind fünf Posten zu ver¬ 
geben: Verteidigung, Beobachtung, 
Navigation, Maschinenraum und Re- 


Wührend sich die 
graue Masse der 
Spiele, die irgend¬ 
wie, irgend etwas 
mit Raumschiffen zu 
tun haben,besonders 
dadurch auszeichnet, 
daß das mögliche 
Konfliktverhalten 
ausschließlich in ei¬ 
nem abgefeuerten 
Laser besteht, gibt 
sich PSI 5 zwar mit¬ 
unter nicht weniger- 
martialisch, bietet 
aber bedeutend mehr 
Optionen, auch 
friedlicher Natur. 



Uelcane ahnar-d Captain . . 

Ynur ship ha=s been fullg stnched «ith 
ennugh fuel- fand.- and supplies -far- 
your journeu. Ynur cphm is an board 
and haue t-ahen their pnyitians in 
preparation fnr departure. I uish you 
the best, of luch and nay r.he solar 
uinds of Xaldur he in «nur fauour. 

Sincerel ~ ‘ '' ’ ' 
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paraturen. Sie, in der Rolle des Kapi¬ 
täns, haben nun die Aufgabe, die Ak¬ 
tionen der einzelnen Abteilungen anzu¬ 
ordnen und zu koordinieren. 

Wenn sich zum Beispiel ein fremdes 
Objekt nähert, der Beobachtung den 
Befehl geben, Objekt analysieren'. 
Falls die Beobachtung feststellt, daß 
kriegerische Absichten der Annähe¬ 
rung zugrunde liegen, muß der Vertei¬ 
digung der Befehl zum scharfmachen 
der Waffen gegeben werden, und die 
Jungs im Maschinenraum müssen die 
Energieschirme hochfahren. Die Koor¬ 
dination der einzelnen Abteilungen 
wirkt zu Anfang ganz schön verwir¬ 
rend, klärt sich jedoch mit wachsender 
Spielerfahrung. Grafisch gefiel uns PSI 
recht gut; jedes der möglichen Besat¬ 
zungsmitglieder wird Ihnen in Wort 
und Bild vorgestellt. Nach dem Start 
teilt sich der Bildschirm in drei große 
Bereiche. Das Statuswindow im unte¬ 
ren Drittel des Monitors, hier erschei¬ 
nen Meldungen und vergleichbare 
Ausgaben. 

Das Personal window, hier erscheint 
immer die Person, mit der Sie momen¬ 
tan kommunizieren. Und zu guter Letzt 
das Window, in dem der Ausblick in 
den Weltraum dargestellt wird. 

Splektee Bedienung- Dokj- Grallk Sound Preis/ 

Ireundlichkeil rrentatian Leistung 

n n n n n n 





Alles in allem hat uns PSI 5 gut gefal¬ 
len. Besonders die Tatsache, daß even¬ 
tuelle Begegnungen im Weltraum nicht 
von vornherein kriegerischer Natur 
sein müssen, fiel in diesen Zeiten der 
Rambos und SDI-Jünger angenehm 
auf. (HS) 


Auf ein Wort 

Lieber Leser, 

Software Reviews sind eine bei weitem 
nicht so unproblematische Sache, wie es 
auf den ersten Blick aussieht. Bis eine 
Review fertig geschrieben ist, ist eine 
ganze Menge Arbeit im Vofeld notwen¬ 
dig, um Sie immer mit den neuesten und 
interessantesten Spielen zu verwöhnen. 
Sicherlich verstehen Sie, daß wir nur 
zwei von zehn Programmen vorstellen, 
uns aber alle zehn gründlich ansehen 
müssen, um daraus das beste auszuwäh¬ 
len. Stehen die Programme, die wir in 
einer neuen Ausgabe vorstellen wollen, 
fest, kann damit begonnen werden, die 
Reviews zu schreiben. Daß eine solche 
Review beim besten Willen nicht 100% 
objektiv sein kann, liegt in der Natur der 
Sache. In unserem Hause werden die 
Reviews noch von Menschen mit einer 
eigenen Meinung geschrieben, und ha¬ 
ben dementsprechend einen individuel¬ 
len, sozusagen subjektiven Touch. 

Ein weiterer Punkt, der Ihnen sicherlich 
schon aufgefallen ist, sind die Spiele 
selbst. Viele der von uns für Sie geteste¬ 
ten Spiele sind Geschicklichkeits- oder 
Arcaden-Adventure-Programme. Lei¬ 
der ist es aus zeitlichen Gründen nicht 
immer möglich, ein solches Spiel bis 
ganz zum Ende durchzutesten. Aus die¬ 
sem Grunde ist es möglich, daß Infor¬ 
mationen, die das Ende des Spieles be¬ 
treffen, nicht immer ganz richtig sind. 
In solch einem Falle greifen wir meist 
auf die Informationen des Herstellers 
zurück. Für den Leser, der nach der 
Lektüre einer Review einen kurzen 
Überblick über die Stärken und Schwä¬ 
chen eines Spieles haben möchte, gibt es 
am Ende jeder Besprechung noch ein 
Bewertungsschema, auf dem sich auf ei¬ 
nen Blick alle Kriterien Des Spieles ab¬ 
lesen lassen. 

Die Bewertung erfolgt ähnlich dem 
Schulnotensystem, nur daß wir Noten 
von 1 bis 10 vergeben. Dabei steht 1 für 
absolut optimal und 10 für indiskutabel. 
Wir hoffen, daß unsere Reviews Ihnen 
bei der Kaufentscheidung ein bißchen 
helfen und Sie vor unangenehmen Über¬ 
raschungen bewahren können. (HS) 
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Demnächst auf Ihrem Computer 


Red Led 



Spiele mit schiefen Ebenen und einer 
entsprechend gemachten 3-D-Grafik, 
in der sich dann noch allerlei Böse- 
wichter und andere Extras tummeln, 
haben immer noch Konjunktur. Jüng¬ 
ster Beweis ist Red Led. Hier müssen 
Sie einen Androiden steuern, dessen 
Aufgabe es ist, mehrere Energiegitter 
miteinander zu verbinden. Die Grafik 
und der Sound sind guter Durchschnitt, 
was das Spielgeschehen hergibt, wer¬ 
den wir sehen. 


The Plot 



Was dem Deutschen Silvester, ist dem 
Briten der fünfte November, Guy Faw- 
kes Tag. Dieser Herr versuchte näm¬ 
lich 1605, das Englische Parlament in 
die Luft zu sprengen und seither zün¬ 
den die Briten ihre Knaller nicht zu Sil¬ 
vester an, sondern am Guy Fawkes 
Tag. Fawkes Plan mißlang damals. In 
einem neuen Plattformspiel können Sie 
allerdings nun versuchen, das üble Un¬ 
terfangen des Guy Fawkes zu voll¬ 
enden. 


Clever & Smart 

Der fast schon anarchistische und 
durch und durch schadenfreudige Hu¬ 
mor des spanischen Comic-Zeichners 
F. Ibanez verhalf seiner Serie, um die 
beiden Geheimagenten Clever & Smart 
zu einem europaweitem Erfolg. Nun 
treiben die beiden Chaoten auch als 



Computerspiel ihr Unwesen. Dr. Bak- 
terius, Mr. L. und all die anderen Figu¬ 
ren aus dem Comic , inklusiv der bösen 
O.M.A. Agenten, sind auch mit von 
der Partie. 


Evening Star 



Das englische Softwarehaus Hewson 
ist eigentlich eher für seine rasanten 
Ballerspiele bekannt. Daß man dort 
auch in der Lage ist, unkriegerische 
Themen zu behandeln, wurde bereits 
mit der Eisenbahnsimulation Southern 
Belle bewiesen. Die Macher dieses 
Programmes haben sich nun eines wei¬ 
teren, klassischen Zuges angenom¬ 
men, dem Evening Star. Hier können 
Sie austesten, was Sie als Eisenbahner 
taugen. 


Spion und Spion - Arctic Antics 





Obwohl sie es dauernd versuchen, 
kriegen sie einander nicht klein. Ge¬ 
meint sind der schwarze und der weiße 
Spion. Nachdem sie einander schon auf 


einer einsamen Südseeinsel und inmit¬ 
ten einer Großstadt jagten, verlegen sie 
sich nun im dritten Teil ihrer Auseinan¬ 
dersetzung in die Arktis. Diesmal geht 
es um ein Raumschiff, das in der eisi¬ 
gen Region eine Bruchlandung machte 
und einige, für beide Spione interes¬ 
sante, Geheimnisse birgt. 


Renegade 



Mit der West Side Story hat alles ange¬ 
fangen, dann folgten Filme wie die 
“Warriors“ oder “Streets on Fire“. 
Gemeint ist das Genre der Jugendban- 
den-Filme. Nun gibts das erste Compu¬ 
terspiel mit einer vergleichbaren The¬ 
matik: Renegade. Die brutalste Gang 
der Gegend hat Ihre Freundin entführt, 
an Ihnen liegt es, Sie zu befreien. Hier 
geht es knochenhart zu, stellen Sie sich 
darauf ein. 


Super Sprint 



Ein neues Spiel, das dem Spieler das 
Donnern PS-starker Boliden in das hei¬ 
mische Wohnzimmer vermitteln möch¬ 
te. Super Sprint bietet sieben verschie¬ 
dene Kurse, auf denen der Spieler sein 
Geschick als Formel 1 Pilot unter Be¬ 
weis stellen kann. Auf jeden Fall eine 
interessante Neuerscheinung, über die 
noch zu berichten sein wird. 


(HS) 
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POPCORN — Ein Strategiespiel für Denker. 


POPCORN bietet drei Spielmöglichkeiten an: 

1) Spiel für zwei Personen, 

2) Spiel für eine Person und Computer, 

3) und schließlich die Möglichkeit, den Computer gegen sich selbst 
spielen zu lassen. (Sollten Sie sich unbedingt einmal ansehen. Die 
Geschwindigkeit ist atemberaubend.) 


Die Menue-Funktionen 


Das Spiel erklärt sich von selber, deshalb hier nur die wichtigsten 
Funktionen: 

Gespielt wird mit dem Joystick, der nach Art eines PC einen Pfeil 
über den Bildschirm steuert. Nach der Anwahl einer der drei Spiel¬ 
möglichkeiten erscheint das Spielfeld auf der linken Seite des Bild¬ 
schirms, auf der rechten Seite oben wird der Spielstand angezeigt. 
Auf der rechten Seite in der Mitte stehen sogenannte ICONS, die 
nach Anwahl mit dem Pfeil und Drücken der Feuertaste ihre jewei¬ 
lige Funktion preisgeben. Das I-Icon enthält die Beschreibung des 
Spiels, mit dem Disketten-Icon kann ein Spielstand zwischenge¬ 
speichert und auch wieder geladen werden. Mit dem Schalter- Icon 
können die Farbe, die Spielart des Computers (berechnend oder zu¬ 
fällig), sowie die Spielgeschwindigkeit eingestellt werden. Das 
Bomben-Icon dürfte wohl klar sein. 


für 464-664-6128 



100 

** 

101 

* 

102 

** 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 


' ************************************* 
■* POPCORNl.DAT - DAT A-Lade r von 'CPC' 
'************************************* 


DATA 8 000,C5,El,OE,07,CD,CE,BC,3E , 5 F 6 6 
DATA 8008,01,CD,OE,BC,3E,01,CD,90,393E 
DATA 8010,BB,AF,CD,96,BB,CD,30,26,602A 
DATA 8O18,0D,21,A8,20,CD,9D,22,DD, 7595 
DATA 8020,21,AC,20,CD.90,22,DD,21,37OB 
DATA 8028,BO,20,00,90,22,21,08.2E.429A 
DATA 8030,00,94,22,21,08,04,00,75,447F 
DATA 8038,BB,21,3A,31,C0,94,22,21,55CD 
DATA 8040,OA,25,CD,75,BB,21,3A,3 1 , 17A9 
DATA 8048,CD,94,22,21,50,31.CD,94.469A 
DATA 8050,22,CD,22,23,FD, 7E,00,FE,22DE 
DATA 8058,OF,38,F6,FE,40,30,F2,FD,1879 


[ 1668 ] 

[2936] 

[1668] 

[117] 

[2754] 

[2274] 

[842] 

[2293] 
[2250 ] 
[954] 
[1617] 
[ 1571] 
[ 1204] 
[ 1102 ] 
[ 2221 ] 
[2616] 


Listing Popcorn 


NICHT ZUM 
VERZEHR 
GEEIGNET!! 

POPCORN, diesmal nicht zum essen. 

Sind Ihnen lange, dunkle und kalte Winterabende zu 
langweilig? Haben Sie gleichzeitig ein Faible für Strate¬ 
giespiele? Dann ist POPCORN genau das Richtige für 
Sie. 


Das Programm 


setzt sich aus drei Teilen zusammen: 

1 und 2) Die beiden Hauptlader, welche die Binärdateien erstellen 
und 

3) das Umwandlungsprogramm, das aus den beiden Binärdateien 
eine einzige macht. 

Als Option ist noch ein kleines Programm dabei, das es ermöglicht, 
das fertig erstellte Hauptprogramm mit !CPM zu starten. 

Beim Eintippen gehen Sie folgendermaßen vor: 

Lader 1 abtippen, speichern (wichtig !!) und starten (Binärfile 1 
wird erstellt). Dieselbe Prozedur mit Lader 2 durchführen (auch 
diesen Lader sicherheitshalber speichern). Die Binärfilcs 1 und 2 
müssen sich nun auf einer Diskette befinden. Jetzt tippen Sie das 
kurze Umwandlungsprogramm ab und starten es. Danach befindet 
sich das Hauptprogramm (Start mit ’RUN“POPCORN’) auf Ihrer 
Diskette. Das CPM-Autoladeprogramm können Sie nun ebenfalls 
abtippen, wenn Sie das Programm mit ’ICPM’ starten wollen. 
POPCORN ist auch für Kassettenbenutzer geeignet, allerdings 
steht hier die Lade- und Speicherroutine nicht zur Verfügung, da 
diese auf Diskette zugeschnitten ist. 

So, und nun bleibt nur zu hoffen, daß diese langen, langweiligen 
Winterabende durch POPCORN kürzer und interessanter werden. 

(C. Schaar/JB) 
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8060 , 

7E , 

01 . 

FE , 

09 , 

38 , 

EB , 

FE , 

OE , 

2 38E 

[2041 

] 

8068 , 

38 , 

17, 

FE , 

1 7 , 

38 , 

E 3 , 

FE , 

IC , 

04 DC 

[ 928] 


8070, 

38, 

OB, 

FE , 

25 , 

38 , 

DB, 

FE , 

2 A , 

002A 

[ 2211 

] 

8078, 

30, 

D7 , 

AF , 

18 , 

06 , 

3 E , 

01 . 

18 , 

3972 

[1630 

] 

8080 , 

02 , 

3E , 

02 , 

32 , 

10, 

2 D, 

11 . 

11 . 

ODE 7 

[1592 

) 

8088, 

2D, 

21 , 

76 , 

31 , 

01 , 

12 , 

00, 

ED, 

1 3BD 

[ 1613 

] 

8090 , 

BO, 

06 , 

00 , 

21 , 

11 , 

2 D, 

B 7 , 

28, 

5 AE A 

[1675 

] 

8098 , 

30, 

F5 , 

£ 5 , 

C5 , 

DD , 

21 , 

B4 , 

2 D, 

3299 

[1623 

] 

80A0 , 

CD, 

9 D, 

22 , 

CI , 

El , 

E 5 , 

EB , 

C5 , 

4C1F 

[2104 

] 

BOAS , 

78 , 

3C, 

3C , 

CD, 

90 , 

BB, 

3E , 

31 , 

3 E 7 1 

[1829 

] 

80B0 , 

80 , 

32 , 

7 A , 

2 E , 

21 , 

57 , 

2 E , 

CD , 

4 1 E 5 

[1661 

] 

80B8 , 

94, 

22 , 

EB, 

CD, 

CB , 

23 , 

CI , 

El . 

5487 

[ 2346 

] 

80C0 , 

11 , 

09 , 

00 , 

19 , 

Fl . 

04, 

3 D , 

18 , 

OCAA 

[ 1992 

] 

80C8 , 

CD , 

DD, 

2 1 , 

B8 , 

2 D , 

CD, 

90 , 

22 , 

5 D 2 4 

[2150 

] 

8000, 

DD, 

21 , 

BC, 

2 D, 

06 , 

07 , 

C5 , 

DD, 

7 2 E B 

[ 1632 

] 

80D8 , 

E 5 , 

CD, 

90, 

22 , 

DD, 

El , 

DO , 

23 , 

5 4B5 

[1607 

] 

80E0, 

DD, 

23 , 

DD, 

23 , 

DD . 

23, 

CI , 

10 , 

7826 

[2158 

] 

80E8 , 

ED, 

21 , 

OB, 

18 , 

CD, 

75 , 

BB , 

21 , 

78CB 

[ 1545 

3 

80F0 , 

3A , 

31 , 

CD, 

94 , 

22 , 

21 , 

OB, 

26 , 

0004 

[2180 

] 

80F8 , 

CD, 

75 , 

BB, 

21 , 

3A , 

31 , 

CD, 

94 , 

6EAA 

[1679 

] 

8100, 

22 , 

21 , 

00, 

00, 

22 . 

2D, 

2 D , 

DD , 

1863 

[ 1 708 

3 

8108, 

21 . 

8D, 

31 , 

21 , 

57 , 

32 , 

06 , 

04 , 

3588 

[2160 

5 

Bl 10, 

C5 , 

DD , 

5 E , 

00 , 

DD, 

56 , 

01 , 

CD , 

5 9 7 F 

[ 1222 

] 

8118, 

9B, 

24 , 

CI , 

DD , 

23 , 

DD , 

23 , 

10 , 

5 3 4 A 

[ 2056 

) 

8120, 

EF , 

ED, 

5 F , 

06, 

01 , 

CB , 

4F , 

28 . 

44D2 

[1755 

] 
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SPECIAL OEEEJPs! 

für CFC 464-664-6128, nur auf 3“- Disketten 

Original CPC-Software im Paket 
zu stark herabgesetzten Preisen 
- nur solange Vorrat reicht - 



mß69,-0flt 

COPY-STAR II 

ist die ideale Befehlserweite¬ 
rung für Druckerbesitzer, 
denn es stellt für alle gängi¬ 
gen Drucker Hardcopyfunk¬ 
tionen in verschiedenen 
Größen zur Verfügung. So¬ 
gar Farbbilder lassen sich 
schattiertausgeben. COPY- 
STAR II können Sie leicht in 
eigene Programme ein¬ 
binden. 




69,-P/V 


mR 


49,-DAf 


COMPOSER-STAR (664/6128) 

Ein Musikprogramm für alle Musikfans 
Mit COMPOSER-STAR können Sie komplette Musikstücke 
oder nur ein paar Taktfolgen auf einfachste Weise erstellen! 
Natürlich stehen Ihnen auch eine Menge Korrekturhilfen zur 
Verfügung, um Ihrem Stück den letzten Schliff zu geben. Sie 
können auch mehrere Stücke verbinden, transponieren, die 
Tonhüllkurven und die Lautstärke verändern, den Rauschge¬ 
nerator benutzen, Notenblätter drucken ... Das Programm ist 
sehr einfach zu bedienen; das heiligende Handbuch gibt auch 
dem Anfänger einen Einblick in die bislang fremde Welt der 
Musik. Das wichtigste jedoch ist. dass Sie Ihre Werke in ein 
Basicprogramm umwandeln können, um es in eigenen Pro¬ 
grammen zu verwenden. 
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MATHE-STAR 

Vom Lehrer für Schüler 

• lin. Gleichungssysteme 

• Gleichungen 4. Grades 

• Bruchrechnen 

• Primfaktorenzerlegung 

• Polynome 

• Kurvendiskussion 

• Integralrechnung 

• Vektorrechnung 

• Matrixrechnung 
etc. 


STATISTIC-STAR 

Eine Grafik sagt mehr als 1000 Zahlen 

Ein professionelles Grafik- und Statistic- 
programm zum Auswerten von Daten aller 
Art (Schule, Studium, Beruf, Hobby, Haus¬ 
halt ...). 

• Linien-, Balken- und Tortengrafik 

• Betiteln von Grafiken 

• 400 Daten direkt im Speicher 

• Umfangreiche Editierfunktionen 

• Umfangreiche statistische Berechnungen 

• Hardcopyfunktion u.v.m. 


Beispielgrafik STATISTIC-STAR 
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s.te 



U.fcc 
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STAR-MON 

Das Entwicklungssystem 
für Profis 

• Assembler 

• Editor 

• Disassembler 

• Monitor 

• vier Breakpoints 

• Trace-Funktion 

• Bankswitch 

• Memory Dump 

• Diskettenmonitor 

• u.v.m. 


CREATOR-STAR 

Ein Trickfilmdesigner für alle 

Hobbyregisseure auf dem CPC! 

• Sprite-Designer 

• Laufschrift 

• Utilities 

• Kulissendesigner 

• Sprites mit 4 Unter¬ 
positionen 

• Verbinden von Sprites 

• Kulissen auch überein- 
andergelegt 

• Eigene Programmiersprache 
mit Editor und Compiler 


DISKSORT-STAR 

Leistungsstarke Diskettenver- 
wallung, die keinem CPC- 
Benutzer fehlen sollte. 
DISKSORT-STAR verwaltet, 
archiviert, katalogisiert, 
druckt,... Ihre Disketten¬ 
sammlung auf einfachste 
Weise. Neben der reinen Dis¬ 
kettenverwaltung ist unter an¬ 
derem noch ein kompletter 
Diskettenmanager enthalten 
Auch in punkto Bedienungs¬ 
komfort ist DISKSORT-STAR 
kaum zu schlagen 


DESIGNER-STAR 

Grafikprogramm, mit dem 
man Bildschlrmgrafiken 
komfortabel erstellen kann. 
Hilfsmenü auf Tastendruck 
- kein Joystick oder Maus 
notwendig. 



9 Spiele für Ihren CPC auf 3“ Disketten 

1) Stan und der Zauberstab - Ein deutsches Grafikadventure besonderer Art 

2) Pyramide - Eine Mischung aus Textadventure und Actionspiel 

3) Puzzle - Bringen Sie ein durcheinandergefallenes Bild wieder in Ordnung 

4) Black Jack 5) Orion 6) Labyrinth 7) Memory 8) Zick-Zack 9)Slalom 


Bitte benutzen Sie die Bestellkarte! 

SPECIAL OFFERS sind nur erhältlich bei: DMV Verlag ■ Postfach 250 • 3440 Eschwege 
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141 DATA 
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Listing Popcorn 


8128,02,06,02,78,32,2F,20,21,0617 [1992] 
8130,32,20,36,00,11,33,2D,01,149F [1421] 
8138,23,00,ED,BO,CD,2C,24,CD,017D [1586] 
8140,FC,24,3A.2F.2D,F5.3D.EE,7098 [1700] 
8148,01.30,32,88,31,Fl,3C,CD,03B9 [1954] 
8150,90,BB,21,17,03,CD,75,BB,60ED [1379] 
8158,3A.2F,20,21,11,2D,FE,02,10B2 [1415] 
8160,20,03,21,1A,20,CD,94,22,1616 [1952] 
8168,21,8D,2E,CD,94,22,3A,10,3E9C [1661] 
8170,2D.B7,CA,57,29,FE,02,28,25 EC [699] 
8178,08,3A,2F,2D,FE,02,CA,57,0B8B [1088] 
8180,29,CD,22,23,FD,7E,01,FE,275C [1572] 
8188,04,38,F6,FE,28,30,F2,FD,1DB9 [1274] 
8190,7E,00,FE,04,3B I EB,FE,28,2338 [1825] 
8198,38,39,FE,33,38,E3,FE,48,0048 [1662] 
S1A0,30,DF,F0,7E,01,FE,11,38,346A [2449] 
81AB,D8,FE,26,30,D4,FE,1A,30,511C [1973] 
81B0,0F,FD,7E,00,FE,3C, DA , 4F , 31FB [2016] 
81B8,26,FE,3F,D2,7D,26,18,CI,25C1 [1252] 
8 ICO,FE,ID,38,80,FD,7E.00,FE, 727E [1236] 
81C8,3C,DA,DD,27,FE,3F,D2,C6,373E [1155] 
81 DO,28,18,AE,FD,7E,00,D6,04,OA48 [1288] 
81D8,67,2E,06,CD,84,29,7C,32,31 DE [1875] 
81E0,8A.31,F0,7E,01,D6,04,67,523F [1550] 
81ES,2E,06,CD,B4,29,7C,32,89,0435 [2435] 
81F0,31,2A,89,31,CD,IC,25,78.061A [2245] 
81F8,B7,28,15,3A.2F.2D,88,28,5014 [2166] 
8200,OF,21,17,03,CD,75,BB,21,0BF8 [2810] 
8208,AA,2E,CD,94,22,C3,81,21,4D5F [1523] 
8210,2A,89,31,CD,1C.25.C5,3C,3C72 [1906] 
8218,F5,F5,3A,2F,2D,47,F1,2A,43CC [ 2539 ) 
8220,89,31,CO,49,25,2A,89,31,5553 [1750] 
8228,CD,70,25,Fl,CI,B9,20,08,76D4 [1290] 
8230 1 CD,89,25,B7,20,1E I 18,0A,4A52 [1446] 
8238,34,30.20,24,89,31,87,04,1326 [1888] 
8240,0F,26,3A,88,31,32,2F,2D,00F3 [997] 
8248,CD,19,BD.CD,19,BD,CO,19,780F [1339] 
8250,BD,C3,42,21,21,2D,2D,3A,65 CC [1078] 
8258,2F.2D,FE,01,28,01,23,34,0226 [2348] 
8260,21,17,03,CD,75,B8,3A,2F,18EF [1501] 
B268,20,21,11,20,FE,02,20,03,198B [1854] 
8270,21,1A,2D,CD,94,22,21,C7,1BDD [1277] 
8278,2E,CD,94,22,3A,10,2D,B7,359D [1926] 
8280,CA,C6,28,CD,24,BB,CB,64.5F6E [1803] 
8288,28,F9,3A,88,31,32,2F,20,2463 [1770] 
8290,C3,2F,21,C9,7E,B7,C8,CD,6281 [2352] 
8298,5A.BB,23,18,F7,21,00,CO,01DC [842] 
82A0,DD,4E,02,16.50,06,09 1 AF,7E05 [2226] 
82A8,IF,CB,19,30,01,82,10,F8,3FB8 [1597] 
8280,47,09,DD,5E,00,CB,23,16,3CFC [2703] 
82B8,00,19,DD,7E,03,DD,46,02,19E2 [1698] 
82C0,90,3C,47,AF.C5.E5,16,00,4080 [2016] 
82C8,B7,28,0B,14,14,14,3E,01,5120 [2114] 
82DO,B8,20,03,14,14,14,DD,7E,5414 [1203] 
82D8,01,DD.46,00,90,3C,47,AF,3B51 [1881] 
82E0,05,C5.E5,87,28,07,3E,01,4031 [2139] 
82E8,14,88,20,01,14,CB,22,CB,2313 [1713] 
82F0,22,CB.22,CB,22,5A,16,00,2B64 [2353] 
82F8,21,C7,31,19,EB,06,08,E1,2141 [2089] 

8300,E5,1A,77,23.13,1A,77,13,7800 [1114] 
8308,05,11.FF,07, 19.D1.10.fi, 7200 [1801] 
8310,El,23,23,CI,Dl,3E,01,10,7652 [2263] 
8318,C7.E1.11,50,00,19,CI,10,5016 [1962] 
8320,A3,C9,CD,09,BB,38,FB,FD,7EC3 [991] 
8328,21,86,20,21,00,CO,FD,4E,3404 [1758] 
8330,01,CB,39,30,03,21,00,EO,361C [2078] 
8338,16,50,AF,06,09,1F,CB,19,OB3B [2046] 
8340,30,01,82,10,F8,47,09,16.0FD8 [1524] 
8348,00,FD,5E,00,19,E5,DD,21,3647 [1674] 
8350,A7,31,11,97,31,06,08,C5,55D5 [1418] 
8358,E5,06,02,7E,12,00,4E,00,7708 [2092] 
8360,Al,DD,4E.01,Bl,77.23.13.6A11 [1394] 
8368,0D,23,0D.23,10,ED,El,CD,70EB [2054] 
8370,26,BC,CI,10,E2,CD,24,BB,21F 7 [1597] 
8378,FD,7E,01,CB,44,28,04.B7,6FAF [2492] 
8380,28,01,3D,CB,4C,28,05,FE,1064 [1494] 
8388,30,28,01,3C,FD,77,01,FD.172B [957] 
8390,7E,00,CB,54.28,04,B7,28,2336 [2441] 
8398,01,30,CB,5C,28,05,FE,4E,1386 [1758] 
83A0,28,01,3C,FD,77,00,4C,CD,1FFD [1513] 
83A8,19,BD,El,11,97,31,06,08,3*88 [2068] 
83B0,C5,1A, 77,23,13, 1A,77, 13.68DD [1458] 
83B8,2B,C0,26,BC,C1,10,Fl,CD,2EA7 [2007] 
83C0,09,BB,02,2B,23,FE,58,C8,3028 [2185] 
8 3C8,C3.2B,23,CD,09,BB,38,FB,61DF [1739] 
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aaDO.OE.OO.CD.Sl.BB.CD.Oe.BB.lOEB 
8308,CD,23,24,FE,OD,28.3A,FE,6562 
83E0,7F,20,15,79,B7,28,EE,3E,364A 
83E8,08,CD,5A,BB,17,CO,5A,BB, 3433 
83F0,28,E3,0D,36,00,2B,18,DD,2E41 
83F8,FE,30,38,D9,FE,5B,30,D5, 7FB9 
8400,F E,3A,38,04,FE,41,3B,CO,7089 
8408,D5,5F,3£,08,B9,7B,D1,28,7FAE 
8410,C4,CD,5A,BB,77,23,0C,18,5284 
8418,BC,AF,B9,28,B8,CD,84,BB, 6 72 7 
8420,36,00,C9,FE,61,D8,FE,7B,0C2F 
8428,D0,D6,20,C9,21,03,18.CD.54E9 
8430,75,BB,3E,02,CD,90,BB,21,16DF 
8438,11,20,00,94,22,21,03,23,1291 
8440,CD,75,BB,3A,2D,2D,CD,67,6F21 
8448,24,3E,03,CD,90,BB,21,05,1718 
8450,18,CD,75,BB,21,1A,20,CD,3BA7 
8458,94,22,21,05,23,CD,75.BB.448D 
8460,3A,2E,2D,CD,67,24,C9,CB,1DO1 
8468,80,6F,26,00,11,64,00,CD, 5ED5 
8470,7F,24,1E,0A,CD,7F,24 1 CB,32F7 
8478,CO,1E,01,CD,7F,24,C9,AF,6925 
8480,ED,52,38,03,3C,18,F9,19,6558 
8488,B7,20,04,CB,40,28,07,CB,5DD5 
8490,CO,C6,30,C3,5A,BB.3E,20,5BD0 
8498,C3,5A,BB,06,18,C5,D5,01,627F 
B4A0,06,00,ED,BO,01,EB,CO,26,1138 
B4A8,BC,EB,C1,10.F0,C9,7E.47,79FF 
8 4B0,E 6,0 7,87,20,04,21,77,30,6656 
84B8,C9,C5,6F,20,26,90,CO,A3,58B9 
B4C0.29,11,97,34,19,Fl,C8,5F.03A5 
84C8,28,04,11,F0.03,19,C9,E5,192B 
84D0,E5,E5,2E,06,CD,A3,29,D1,4A07 
84D8,E5,26,F0,6B,CD,A3,29,D1,67D7 
84E0,19,11,A4,CO,19,22,95,31,111 b 
84E8.E1,26,06,C0,A3,29,Dl,5A,7154 
84F0,16,00,19,11,32,20,19,ED,08CB 
84F8,5B,95,31,C9,06,06,2E.00,0204 
8500,05,06,06,26,00,05,65,00,6383 
8508,CF,24,D5,CD,AE,24,Dl,CD,7C7F 
8510,9ß,24,£1,24,0,10,EE,2C,5D58 
8518,CI,10,E5,C9,E5,26,06,CD,73C1 
8520,A3,29,Dl,5A,16,00,19,11,4403 
8528,32,20,19,7E.F5,11,24,00,1124 
8530,19,7E,4F.F1,47,E6,07,87,14E9 
8538,20,03,06,00,09,78,06,01,17A5 
8540,CB,5F,28,02,06,02,£6,07,7693 
8548,C9,4F,C5,E5,26,06,CD,A3,61A1 
8550,29,01,5A,16,00,19,11,32,2A94 
8558,20,19,C1.3E,07,Al,4F,3E,091C 
8560,02,88,20,02,CB,D9,71,C9.2E37 
8568,E5,CD,1C,25.F5,3A.2F 1 2D,4723 
8570,47,F1,3C,E1,E5,CD,49,25,12FB 
8578,E1,CD,7D,25,C9 1 CD,CF,24,4AF6 
8580,D5,CD,AE,24,D1,C0,9B,24,4AEE 
8588,C9,06,06,2E,00,C5,06,06,643E 
8590,26,00,C5,E5,CD,1C,25,B9,031B 
8598,30,0B,E1,24,C1,10,F3,2C,0322 
B5AO.C1,10,EA,AF,C9,E1,C1,C1.77BF 
85A8,22,8B,31,3A,30,2D,B7,C4,36DE 
85BO.OF,26,2A.8B,31,7D,B7,28,02CA 
8588,07,20,00,68,25,24,88,31,1747 
8500,70,87,28,07,25,00,68,25,1459 
85C8,2A,8B,31.3E,05,BD,28.07,308B 
85D0,2C,CD,68,25,2A,8B,31,3E,2930 
8 5D8,05,BC,28,07,24,CD,68,25,2A11 
85E0,24,88,31,00,10,25,91,24,3040 
85E8.8B,31,E5,CD,49,25,El.CD, 5A63 
85F0,70,25,06,24,21,32.2D.C5.341F 
85F8,E5,CD,28,25,3A,88,31,B8,45DA 
8600,28,08,E1,23,C1,10,F0,3E,0F86 
8608,FF,C9,E1,CI,03,89,25,47,5901 
8610,C5,E5,C0.CF,24,D5,ES,21,4D0F 
8618,77,30,00,98,24,00,19,BD,260B 
8620,El,CD,AE,24,01,CD,9B,24,50EE 
8628,CD,19,BD,El,C1,10,El,C9,7E33 
8630,DD,21.0B,2D,3E,00,F5,DD,65B7 
8638,4E,00.DD,46,00,CD,32,BC,3B2C 
8640,F1,0D,23,3C,FE,04,20,EE,4F2E 
8648,01,00,00,CD,38,BC,C9,CD,0E3F 
8650,23,29,OD,21.D8,20,CO,9D,0503 
8658,22,21.E4,2E,CD,94,22,CD,0391 
8660,22,23,FD,7E,00,FE,07,DA,02AC 
8668,77,26,FE,4A,02,77,26,FD,2E9D 
8670,7E,01,FE,09 I D2,5F,26,CD,2770 


[ 875 ] 

[2007] 
[1856] 
[1970] 
[1454] 
[995] 

[ 1930) 
[ 2055 ] 
[1451] 
[1228] 
[1801] 
[2291 ] 
[1957] 
[ 1879 ] 
[1033] 
[685] 

[1388] 
[1520] 
[951] 
[1232] 
[1468] 
[1317] 
[1767] 
[1381] 
[1502] 
[1505] 
[1776] 
[ 1842] 
[1412] 
[2285] 
[1962] 
[ 2100 ] 
[ 1372] 
[1658] 
[ 1859 ] 
[2261] 
[2017] 
[898] 
[1142] 
[854] 
[1347] 
[1971] 
[1360] 
[1121 ] 
[2011 ] 
[2488] 
[1201 ] 
[1878] 
[1520] 
[ 925 ] 

[2041] 
[ 1420 ] 
[1639] 
[561 ] 

[ 1788] 
[ 1553 ] 
[ 2530 } 
[ 723] 

[ 1811 ] 
[2343] 
[2087 ] 
[ 1810 ] 
[1735] 
[ 1616] 
[2063] 
[ 1309 ] 
[ 1366 ] 
[ 1892 ] 
[ 1 755] 
[ 2253 ] 
[2509 ] 
[ 1608] 
[2234 ] 
[1553] 
[1243) 
[2219 ) 

[ 1586 ] 
[1179] 

[ 1 740] 

[ 834] 
[ 1110 ] 
[2700] 

[1098] 
(2611 ] 

[ 589 ] 
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357 OATA 

358 DATA 
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361 DATA 

362 DATA 

363 DATA 


B678,2F,29,C3,81,21.3A,9B,BC,0DDA 
8680,FE,0F,02,81,21,01,7E,FA,599A 
8688,3E,01,ED,79,CD,23,29,DD.0318 
8690,21,E8,2D.CD,9D,22,D0,21,260B 
8698,EC,2D,CD,9D,22,0D,21 1 F0,6FE6 
86A0,2D,CD,9D,22,DD,21,F4,20,33E9 
86A8,CD,90,22,21,CI,30,CD,94,4056 
86B0,22,21,10,11,CD.75,BB,21,1CBB 
86B8,23,2D,CD,94,22,21,7A,2D,0B6D 
8 6C0,11, 7B,20,01,07,00,36,20,1384 
86C8,ED,80,3A,2C,2D,4F,O6,OO,5F58 
86DO,11,7A,20,21,23,20,ED,80,1176 
8608,CD,22,23,3E,01,01, 7E,FA, 698A 
86E0,ED,79,FD,7E,00,FE,11,38,7362 
86E8,ll,FE,34,30,0D,F0,7E,Ol,31El 
06FO,FE,15,38,O6,FE,2E,3O,O2,7A0A 
86F8, 18, 12,CD,2F,29,CO, 7D,8C, 11EA 
8700,CD,92,BC,01,7E,FA.AF,ED,543B 
8708,79,03,81,21,FE,10,38,C8,194C 
8710,FE,22,30,20,FD,7£,00,F£,75BE 
8718, 13,38,8D,FE,32,30,B9,21,1 FC3 

8720.10.11, CD,75,BB,3E,20,06,1706 
8728,08,CD,5A,BB,10.FB.21,10.348E 

8730.11, CO, 75,BB,21,23,20,CD,3FC3 
8738,CB,23,79,32,2C,2D,C3,B1,61A3 
8740,26,21,01,01,CD,75,BB,FD,1047 
8748,7E,01,FE,25,DA,D8,26,FE,2702 
8750.2A,02,08,26,FD,7E,00,FE,3E0E 
8758,15,DA,D8,26,FE,20,38,3C,225C 
8760,FE,25,DA,D8,26,FE,30,D2,62FA 
8768,D8,26,CD,38,29,CB,6F,CA,7DEO 
8770,D8,26,CS,77,C2,D8,26,3A,7E96 
8778,2C,2D,06,0C,21,7A,20,C0,1037 
8780,8C,BC,D2,FA,26,21,0B,2D,7D6F 
8788,11,78,00,01,00,00,3E,02,162E 
8790,CD,98,BC,D2,FA,26,CD,8F,5C7D 
6798,BC,C3,FA,26,CD,3B,29,CB,75FO 
8 7 AO,6F,CA,08,26,3A,2C,2D,06,1D5C 
8 7A8,OC,21, 7A,2D,CD,77,8C,D2,05CE 
8 7B0.FA,26,21,0B,2D,CD t 83,BC,73F6 
87B8,D2,FA,26,CD,7A,BC,D2,FA,5FEE 
87C0,26,CO,2F,29,DD,21,CO,2D,20F1 
87C8,CD,90,22,CD,30,26,CO,2C,49FE 
87DO,24,CD,FC,24,01,7E,FA.AF,3C28 
07O8,ED,79,C3,42,21,CD,23,29,76D3 
07EO,DD,21,F8,2O,CD,9D,22,DD,7F95 
87E8,21,FC,2D,CD,9D,22,00,21,230B 
87F0,00,2£,CD,9D,22,DD,21,04,1902 
07F8,2E,CD,9D,22,21,EA,3O,CD,37CD 
08OO,94,22,21,O6,OF,CD,75,BB 1 45DD 
8808,21,24,31,3A,31 1 2D,B7,28,1C7A 
88 10,03,21,2F,31,CD,94,22,21,0B6D 
8818,OA,IC,CD,75,BS,3A,0F,2D,19F3 


364 DATA 

365 DATA 

366 OATA 

367 OATA 

368 DATA 

369 DATA 

370 OATA 

371 DATA 
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395 DATA 


8820,3C,CD,67,24,3A,0F,2D,6F,2239 
8828,CB,25,26.00,11,88,20,19.6AEB 
8830,11,OD,20,01,02,00,ED,BO,OFOA 
8838,CD,30,26,21,OE,16,CD,75,6097 
8840,8B,3A,30,2D,EE,1F,3C,CD,5069 
8848,67,24,CD,22,23,FD,7E,00,2310 
8850,FE,05,38,OF,FE,40,30,OB,7F2B 
8858,FD,7E,01,FE,07,38,04,FE,6EEE 
8860,20,38,06,CD,2F,29,C3,81,12C8 

8868.21, FE,09,38,DD,FE,OE,02,287E 
8870,88,28,FD, 7E,00.FE,07,38,558E 
8878,Dl,FE,32,30,CD,3A,31,20,548F 
8880,EE,FF,32,31,2D,C3,02,28,4FD8 
8888,FE, 11,38,BE,FE, 16,30, 17,707F 
8890,FD,7E,00,FE,25,38,B3,FE,6EB0 
8898,3E,30,AF,3A,0F,2D,3C,E6,0512 
88AO.OF,32,OF,20,03,02,28,FE,0E8E 
88A8,19,38,9F,FE,1E,30,9B,FD,1F7B 
8880,7E,00,F£,07,38,94,FE,32,22EE 
88B8.30,90,3A,30,20,aO.Ee.lF.SSOF 
08CO,32,30,2D,C3,02,28,CD,23,1D99 
88C8,29,DD,21,DC,2D,CD,90,22,2964 
88D0,DD,21,EO,20,CO,9D,22,DD,7C95 

8808.21, E4,2D,CD,90,22,21,8C.245E 
88E0,30,CD,94,22,CD,22,23,FD,3DBB 
S8E8, 7E.01.FE, 10,38,28,FD, 7E.21S4 
88F0,00,FE,48,30,21,FE,29,38 1 371A 
88F8,1D,FE,2B,38,E7,FE,3E,30,336C 
8900,E3,FD, 7E.01 ,F E,21,38,DC,4 6C8 
8908,FE,26,DA,07,20,FE,29,38,6F22 
8910,03,FE.2E,08,18,CE,CD,2F,5C00 
8918,29,3A, 10,20,87,CA,8A,22, 1D76 


1361 ] 

1 775 ] 
1254] 
1381 ) 
824 ] 
2050 ] 
2169 ] 
2004 ] 
1989 ] 
1494 ] 
813 ] 
15 72 ] 
1453 ] 
1685 ] 

1930 3 
2157 ] 
1680 ] 
2346 ] 
2101 ] 
1321 ] 
1113] 
930 ] 
2303] 
2120 ] 
2207 ] 
1906 ] 
2233 ] 
690 ] 
1768 ] 
1488 ] 
1233 ] 

2 39 2 ] 
2628 ] 
956] 
2193] 
2106 ] 
1418 ] 
2031 ] 
1194] 
1616 ] 
2390 ] 
2490 ] 
1739 ] 
1745 ] 
1235 ] 
2230 ] 
1428 ] 
2394 j 
2063 ] 
1424 ] 
9 77 ] 
1340] 
1882 ] 
1240 ] 
867 ] 
1117 ] 
1302 ] 
1024 ] 
1221 ] 
1 705 ] 
1435 ] 
1894 ] 
2269 ] 
1662 ] 
946 ] 

1931 ] 
1884 ] 
971 ] 
1487 ] 
1010 ] 
2839 ] 
2079 ] 
1906 ] 
1837 ] 
1268 ] 
1804 ] 
1604 ] 
2624] 
2169 ] 
2364] 
2075 ] 
1955 ] 
2070 ] 
2436 ] 
939 ] 


usling Popcorn 


396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 
41 7 
418 
4 19 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 


DATA 8920,C3,81,21.01,00,40,21.00,4482 
DATA 8928,CO,11,07,30,ED.BO,C9,01,6348 
DATA 8930,00,40,21,07,3D,11.00.CO,153C 
DATA 8938,ED,80,C9,F3,01,7F,FB,3E,4CAC 
DATA 8940,04,60,79,00,ED, 78.87, 30,3106 
DATA 8948,FB,0C,AF,£0. 79, 3E,FF, 30,6743 
DATA 8950,00,20,FC,ED,70,FB,C9,3A,18D4 
DATA 8958,31,20,B7,C2,C8,29,3E,06,0F9E 
DATA 8960,CD,7F.29.6F,3E,06,CD,7F,7A9D 
DATA 8968,29,67,E5,CD,IC,25,El,3A,1CBC 
DATA 8970,2F,2D,30,EE,01,3C,88,28,1420 
DATA 8978,E5,22,89,31,C3,10.22,D5,6EF9 
OATA 8980,E5,F5,ED,5F,6F,67,CD,A3,544D 
DATA 8988,29,E0,5B,C6,29,19,7C.87.29A3 
DATA 8990,20,01,24,70,67,20,01,2C,1606 
DATA 8998,22,C6,29,F1,6F,CD,84,29,2BBD 
DATA 89AO,El,Dl,C9.C5,05,50,16,00,5640 
OATA 89A8,6A,06,08,29,30,01,19,10.36B6 
DATA 89B0,FA,D1,C1,C9,C5,AF,06,08,5960 
DATA 89B8,CB,14,17,95,30,01,85,36,6B81 
DATA 89C0,10,F6,C8,14,C1,C9,65,89,28CF 
DATA 89C8,F3,AF,32,9A,2C,32,9B,2C,5D12 
OATA 8900,06,06,26,00,C5,06,06,2E,0052 
OATA 89D8,00,C5,E5,AF,47,CD,58,2C,2680 
DATA 89EO,CD,IC,25,50,00,91,06,01,6201 
DATA 89E6,El,CD,58,2C,7A,06,02,CD,4901 
DATA 89F0,58,2C,3A,2F,2D,BA,20,16,2166 
OATA 89F8,06.01,CD,76,2C,B7,20.0E,1£72 
DATA 8AOO,3A,9A,2C,3C,32,9A,2C.3E,3E5E 
DATA 8A08,01,06,00,CD,58,2C,3A,88,0F5C 
DATA 8A10,31,BA,28,07,3A,9B,2C,3C,30A8 
DATA 8A16,32,9B,2C,2C,C1, 10 , BA , 2 4 , 3F98 
DATA 8A20,C1, 10,B1 , 3A,9A,2C,B7,CA, 7 4C4 
DATA 8A28,35,2B,AF,32,9C,2C,6F,3E,0230 
DATA BA30,06,F5,3E,06,26,00,F5,22,3918 
DATA 8A38,94,2C,06,00,CD,76,2C,B7,469F 
DATA 8A40,CA,C7,2A,3A,95 1 2C,32,97,56CB 
DATA 8A48,2C,3A,94,2C,3D,FE,06,30.0AEC 
DATA 8A50,16,32,96,2C,CD,2F,2C,2A,1126 
DATA 8A58,96,2C,06.01,CD,76,2C,B7,478F 
DATA 8A60,20,05,3A,96,2C,18,E5,3A,1F90 
DATA 8A68,94,2C,3C,FE,06,30,16,32,498E 
DATA 8A70,96,2C,CD,2F,2C,2A,96,2C,5B98 
DATA 8A78,06,01,00,76,20,87,20,05,1E79 
DATA 8A80,3A,96,2C,18,E5,3A,94,2C,3A44 
DATA 8A88,32,96,2C,3A,95,2C,3D,FE,3E3C 
DATA 8A90,06,30,16,32,97,2C,CD,2F,OB5D 
DATA 8A98,2C,2A,96,20,06,01,CD,76,0058 
DATA 8AA0,2C,B7,20,0S,3A,97,2C,18,3C5C 
DATA 8 aa8,e5,3a 1 95,2c,3c,fe. 06,30,6E44 
DATA 8AB0,16,32,97,2C,CD,2F,2C,2A,1106 
DATA 8AB8,96.2C,06,01,CD,76,2C,B7,478F 
DATA 8ACO,20,05,3A,97,2C,18,E5,2A,1F90 
DATA 8AC8,94,2C,06,00,CD,76,2C,47,466F 
DATA BADO,3A,9C,2C,B8,38,OA,20,OF,35A7 
DATA 8AD8,3E,02,C0, 7F,29,87,28,07,0213 
DATA 8AE0,78,32,9C,2C,22,98,2C,24,22CC 
DATA 8AE8,F1,3D,C2,36,2A,2C,F1,30,6CDF 
OATA 8AF0,C2,31,2A,2A,98,2C,22,94,6E00 
OATA 8AF8,2C,3A,10,2D,B7,CA,25,2C,1EA6 
DATA 8B00,3E,02,CD,7F,29,B7,CA,25,03F5 
DATA 8B08,2C,3A,94,2C,B7,CA,25,2C,0E36 
DATA 8B10,FE,05,CA,25,2C,3A,95,2C,65DE 
DATA 8B18,B7.CA,25,2C,FE,05,CA,25,6935 
DATA 8B20,2C.3A.9A.2C,FE,01,20,00,OEB9 
DATA 8B28,2A,94,2C,06,00,CD,76,2C,3614 
DATA 8B30,FE.19.D2,25,2C,AF,32,90,6275 
DATA 8B38,2C,3E,03,CD,7F,29,B7,28,172A 
DATA 8B40,30,3A,9B,2C,FE,22,30,29,0011 
DATA 8B48,06,06,26,00,C5,06,06,2E,0052 
DATA 8B50,00,05,06,02,CD,76,2C,47,360F 
DATA 8B58,3A,2F,2D,88,20,05,22,94,1924 
DATA 8B60,2C,18,OA,20,01,10,EA,24,1438 
DATA 8B68,CI,10,El,18,1F,CI,CI,18,7B46 
DATA 8B70, 1B,3E,06,CD, 7F ,29,6F.3E,ODAC 
DATA 8B78,06,CD, 7F, 29,67,06,02,CD,3E09 
DATA 8B80,76,20,47,3A,88,31,68,28,3E9C 
DATA 8B88,E8,22,94,2C,AF,32,9E,2C,6860 
DATA 8B90,3A,95,2C,32,97,2C,3A,9 4,3A08 
DATA 8B9B,2C,B7,20,02,3E,01,3D,32,3E5C 
DATA 8BA0,96,2C,2A,96,2C,06,02,CD,4D91 
DATA 8BA8,76,2C,47,3A,88,31,B8,20,3E94 
DATA 8BB0,00,06,01,CD,76,2C,87,20,09BE 
DATA 8BB8,05,3£,01,32,9E,2C,3A,96,0AA2 
DATA BBCO,2C,3C,FE,06,30,09,47 1 3A,07BO 
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12134] 

[206 7 ] 
[ 1584 ] 
[2058] 
11915] 
[2678] 
[1725] 

l 707 ] 

[ 1425 ] 
[ 15 78 ] 
[ 1585] 
[ 1652] 
[1730] 
( 1 784 ] 
[1973] 
[1830] 
[1528] 
[ 1961 ] 
[1337] 
[1690] 
[1197] 
[1168] 
[2516] 
[1930] 
[ 1808] 
[ 1942] 
[ 1285] 
( 1792] 
[1634] 
[1731 ) 
[2321 ) 
[2281 ) 
[2151 ] 
[2024 ] 
[ 1965 ] 
[ 1647 ] 
[ 2062 ] 
[1610] 
[ 2057 ] 
[1189] 
[ 2220 ] 
( 1656 ] 
[1477] 
[ 1687 ] 
[ 1688 ] 
[1128] 
[ 2282 ] 
[ 1686 ] 
[2312 ] 
(2800 ] 
[1421] 
[1471] 
( 1741 ] 
(1341 ] 
[2419] 
[ 1817] 
[ 1257 ] 
[ 1397 ] 
[1534] 
( 1391] 
[2098] 
[2424] 
[2196] 
[2518] 
[1173] 
[ 1439 ] 
[956] 
[1545] 
[ 1559] 
[ 1939] 
[ 1412] 
[2366] 
[2416] 
[ 693] 
[2682] 
(2804] 
[ 1932] 
[ 1859 ] 
[2128 ] 
[1784] 
[1448] 
[ 1596] 
[ 2051 ] 
[ 1897 ] 
[ 1111 ] 


1 '88 PC 65 












I—Programm 


481 

DATA 

8BC8 , 

482 

DATA 

8BD0 , 

483 

DATA 

8BD8 , 

484 

DATA 

8BE0 . 

485 

DATA 

8BE 8 , 

486 

DATA 

8BF0 . 

487 

DATA 

8BFB , 

488 

DATA 

8C00 , 

489 

DATA 

8C08 , 

490 

DATA 

8C10 , 

491 

DATA 

8C10 , 

492 

DATA 

8C20 , 

493 

DATA 

8C2 8 , 

494 

DATA 

8C30 , 

495 

DATA 

8C38 , 

496 

DATA 

8C40 , 

497 

DATA 

8C48 , 

498 

DATA 

8C50 , 

499 

DATA 

8C58 , 

500 

DATA 

BC60 , 

501 

DATA 

8C68 , 

502 

DATA 

8C70 , 

503 

DATA 

8C78 , 

504 

DATA 

BC80 , 

505 

DATA 

BC88 , 

506 

DATA 

8C90 , 

507 

DATA 

8C98 , 

508 

DATA 

8CA0 , 

509 

DATA 

6CA8 , 

510 

DATA 

ecBo, 

511 

DATA 

8CB8, 

512 

DATA 

BCCO, 

513 

DATA 

8CC8 , 

514 

DATA 

8C00 , 

515 

DATA 

BCD8 , 

516 

DATA 

8CE0, 

517 

DATA 

8CE8 , 

518 

DATA 

8CF0 , 

519 

DATA 

8CFB, 

520 

DATA 

8000 , 

521 

DATA 

8D08 , 

522 

DATA 

8D10, 

523 

DATA 

8D18, 

524 

DATA 

8D20, 

525 

DATA 

8D28 , 

526 

DATA 

8D30 , 

527 

DATA 

8D38 , 

528 

DATA 

8 D40 , 

529 

DATA 

8D48 , 

530 

DATA 

8D50 , 

531 

DATA 

8D58, 

532 

DATA 

8D60, 

533 

DATA 

8D68, 

534 

DATA 

8D70 , 

535 

DATA 

8 D 7 0 , 

536 

DATA 

8D80 , 

537 

DATA 

8D88 , 

538 

DATA 

8D90 , 

539 

DATA 

8D98 , 

540 

DATA 

8DA0, 

541 

DATA 

8 DAS , 

542 

DATA 

BDBO , 

543 

DATA 

8DB8 , 

544 

DATA 

8DC0, 

545 

DATA 

8DC8 , 

546 

DATA 

8 DDO, 

547 

DATA 

8 DD8 , 

548 

DATA 

8DE0 , 

549 

DATA 

8DE8 , 

550 

DATA 

8DF0 , 

551 

DATA 

8DF8 , 

552 

DATA 

8E00 , 

553 

DATA 

8E08 , 

554 

DATA 

BE 10 , 

555 

DATA 

8E10 , 

556 

DATA 

8E20 , 

557 

DATA 

8E28 , 

558 

DATA 

8E30, 

559 

DATA 

8E38 , 

560 

DATA 

8E40 , 

561 

DATA 

8E48 , 

562 

DATA 

8E50 , 

563 

DATA 

8E58 , 

564 

DATA 

8E60 , 

565 

DATA 

8E68 , 
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94,2C,3C,B8,78 
94,2C,32,96,2C 
B7,20,02,3E,01 
2C,2A,96,2C,06 
2C,47,3A,88,31 
06,01,CD,76,2C 
3E.01,32,9E,2C 
3C,FE,06,30,09 
2C,3C,B8,78,30 
2C,FE,01,20,10 
3C , 32,9D,2C,4 7 
3D,B8,D2,71,2B 
22,89,31,FB,C3 
C5,D5,F5,2A,96 
06,02,CD,76,2C 
31,B8,20,02,16 
94,2C.06,00,CD 
CD,58.2C,Fl,Dl 
E5,D5,E5,26,06 
Dl,5A,16,00,19 
24 , CD,A3,29,01 
2C,19,77,Dl,El 
E5,26,06,CD,A3 
16,00,19,E5,68 
A3,29,Dl,19.11 
7E,Dl,El ,C9.00 
00,00,00,00,00 
00,00,00,00,00 
00,00,00,00,00 
00,00,00,00,00 
00,00,00,00,00 
00,00,00,00,00 
00,00,00,00,00 
00,00,00,00,00 
00,00,00,00,00 
00,00,00,00,00 
00,00,00,00,00 
00,00,00,00,00 
00,00,00,00,00 
00,00,00,00,00 
00,00,00,00,1A 
00,00,00,00,00 
00,00,00,00,00 
00,00,00,50,4F 
52,4E,20,00,07 
00 , 00 , 00 , 00,00 
00 , 00 , 00 , 00,00 
00 , 00 , 00 , 00,00 
00 , 00 , 00 , 00,00 
00 , 00 , 00 , 00,00 
03,03,03,02,03 
04,03,03,04,04 
03,04,04,04,04 
04,04,04,03,02 
03,02,50.4F,50 
4E,20,2E,50,4F 
14,OA,16,06,12 

OE, 02,11,08,18 

OF. 06,06,03,OE 
02,01,18,12,10 
07,1F,04,06,07 
07,1F,12,14,04 
00,27,00,18,01 
16,26,01,05,01 
19,ID,08,OC,1F 
19,ID,OE,12,1F 
03,24,04,18,14 
15,IE,10,12,15 
08,19,OA,16,09 
0A,0F,12,14,12 
02,1F,03,OF.03 
12,IE,08,OA,03 
1F,09,06,40,65 
68,20,20,20,67 
6E,20,20,20,40 
63,68,1F,09,OD 
73,63,68,20,20 
67,65,6E,20,43 
75,74,65,72,1F 
6F,6D,70,75,74 
67,65,67,65,6E 
6D,70,75,74,65 
06,00,42,69,74 
64,65,6E,20,20 
65,6E,20,64,65 


,30,DO,3A,4F9A 
,3A,95,2C,4EAE 
,3D,32.97,502 F 
,02,CD, 76,0D5 4 
,B8,20,OD,0B2 5 
,B7,20,05,IE 79 
,3A,97,2C,106A 
,47,3A,95,23F 5 
.DO,3A,9 E,OBAA 
,3A,90,2C,2ADE 
,3A,9B,2C,002A 
,2A,94,2C,2D24 
, 10,22,E5,3C29 
,2C, 16,00,4FEC 
,47,3A,88,1DCO 
,18,14,2A,3272 
,76,2C,82,46AA 
,CI ,El,C9,7E9 7 
,CD,A3,29,5B6B 
,E5,68,26,7F6A 
,19,11.9F.31E1 
,C9,E5,D5,1683 
,29,Dl,5A,7354 
,26,24,CD,052D 
,9F,2C,19.42C5 
,00,00,00,1BFO 
,00,00,00,0000 
,00,00,00,0000 
,00,00,00,0000 
,00,00,00,0000 
,00,00,00,0000 
,00,00,00,0000 
,00,00,00,0000 
,00,00,00,0000 
,00,00,00,0000 
,00,00,00,0000 
,00,00,00,0000 
,00,00,00,0000 
,00,00,00,0000 
,00,00,00,0000 
, 14,OA,00,0094 
,00,00,00,0000 
,00,00,00,0000 
,50,43,4F,06F1 
,00,00,00,3EB8 
,00,00,00,0000 
,00,00,00,0000 
,00,00,00,0000 
,00,00,00,0000 
,00,02,03,0007 
,04,04,04,0104 
,04,04,03,0206 
,03,03,04,006E 
,03,03,03,03A9 
,43,4F,52,OCBO 
,50,00,00,2CF8 
, 09,08,04,0B40 
,0C,18,OF,05EF 
,07,10,05,06B9 
, OB,15,00,03EB 
,1F,OB,OD.04FF 
, 19,0A,13,0703 
, 14,01,14.080E 
,26,15,17,0250 
,23,08,0C.0A68 
, 23,OE,12.0B5A 
,23,OE,18.09A8 
, IE,14,16,OECE 
,18,OE,10,0244 
, 17,12, 14.053C 
, 18,04,06,0626 
, 18,OC,OE,0F4E 
,6E,73,63.0BC5 
,65,67,65,3807 
,65,6E, 73,3A5 3 
,4D,65,6E,2908 
,20,67,65,2F6B 
,6F,60,70,260E 
,09,14,43,2CB7 
,65,72,20,2760 
, 20,43,6F,2369 
, 72,00,1F,219F 
,74,65,20,OCOA 
,4E,61,6D,2417 
, 73,1F,06,299C 


[2293] 
( 1 2 74 ] 
12271] 
[2026] 
[2048] 
[2203] 
[2084] 
[2697] 
[ 1428 ] 
[1174] 
[ 2338 ] 
[2280] 
[ 1 722 ] 
[ 2339 ] 
[1574] 
[ 1 729 ] 
( 1926 ] 
[1908] 
[ 2591 ] 
[1747] 
[ 1855 ] 
[715] 

[2078 ] 
[2036 ] 
[1955] 
[2773] 
[1250] 
[ 1032 ] 
[1035 ] 
t 1781 ] 
[1721] 
[ 1876 ] 
[1738] 
[1883] 
[1980] 
[1035] 
[ 1278 ] 
[1721 ] 
[316] 
[2548] 
[997] 

[1907] 
[2184] 
[ 8521 
[1697] 
[ 1062 ] 
[1250] 
[1309] 
[1472] 
[1979] 
[1868] 
[1575] 
[2322] 
[1831] 
[1881 ] 
[1552] 
[1795] 
[1565] 
[1609] 
[1683] 
[ 1589 ] 
[2113] 
[2030] 
[1176] 
[1731] 
[2444] 
[2063] 
[1708] 
[1433] 
[1522] 
[ 1972 ] 
[2030] 
[ 1202 ] 
[1548] 
[ 733] 

[2122 ] 
[2259 ] 
[2115] 
[1416 ] 
[1646] 
[ 1878 ] 
[1348] 
[2154] 
[1107] 
[2064] 


566 DATA 8E70.0F, 
56 7 DATA 0E 78, 73. 

568 DATA 8E80.65, 

569 DATA 8E88.3A, 

570 DATA 8 E 90,74, 

571 DATA 8 E 9 8,65, 

572 DATA 8EA0.20, 

573 DATA 8EA8.20, 

574 DATA 8EB0.65, 

575 DATA 8EB8,63, 

576 DATA 6EC0.20, 

577 DATA 8EC8,68, 

578 DATA 8ED0.65, 

579 DATA 0EO8.55, 

580 DATA 8EE0.20, 

581 DATA 8EE8,20, 

582 DATA 8EF0.20, 

583 DATA 8EF8.1F, 

584 DATA 8F00.3D, 

585 DATA 8F08.3D, 

586 DATA 8F10.0B, 

587 DATA 0F18.69, 

588 DATA 8F20.65, 

589 DATA BF28,77, 

590 DATA 8 F 30,64, 

591 DATA 8F38,6E, 

592 DATA 8F40.64, 

593 DATA 0F48.6C, 

594 DATA 8F50.67, 

595 DATA 8F58.65, 

596 DATA BF60.72, 

597 DATA 8F68.6E, 

598 DATA 8F70.65, 

599 DATA 8F78,05. 

600 DATA 8F80.20, 

601 DATA 8F88.62, 

602 DATA 8F90.2E, 

603 DATA 8F98.65, 

604 DATA BF AO,20, 

605 DATA 8FA8.20, 

606 DATA 8FB0.6E, 

607 DATA 8FB8.65, 

608 DATA 8FC0.61, 

609 DATA 8FC8.6E, 

610 DATA 8FD0.6E, 

611 DATA 0FD8.6C, 

612 DATA 8FE0.1F, 

613 DATA 8FE8.65, 

614 DATA 8FF0.20, 

615 DATA 8FFB.6E, 

616 DATA »ENDE* 

617 ad r = &8000:zei 

618 READ d$:IF d$ 

619 pr=0 

620 FOR 1=1 TO 8 

621 READ a$:a=VAL 

622 POKE ad r,a:ad 

623 pr=pr*2:IF pr 

624 pr=UNT(pr)XOR 
36 

625 NEXT 1 

626 READ pr$:pr2= 
N pr2=pr2+65536 

627 IF p r < > p r2 TH 
r in Zeile“ ; z e i 1 e 

628 zei1e = zei1e+1 

629 SAVE"POPCORN 1 

630 PRINT d$:END 


53,70, 
20,31, 

62.65, 
20,5F, 
20,61, 
2E,20, 
20 , 20 , 
00,4B, 
68,74, 

68.74, 
20 , 20 , 

61.74, 

67.74, 
45,52, 
20 , 20 , 
4E,20, 

54.20, 
OB,08, 
30,3D, 
30,30, 
5A,77, 
65,6C, 
73,73, 
65,63, 
1F , 05, 

65.72, 

61.73, 

66.65, 
65,6E, 

64.65, 

66 . 20 , 

75.72, 
20 , 20 , 
OE,65 , 

46.65, 

65.73, 
20,20, 
72,1F, 

46.65, 
6E.75 , 
69,67, 
72,6£ , 

75.73, 
2C,20, 

20.73, 
64,20, 
05,11, 
67,72, 
61,6E, 

64.65, 


69.65 

20.65 
6E , 21 
20,00 
60,20 
20,20 
20,20 

69.65 
27,73 
20,68 
20,20 

20.67 
21,20 
5D , 20 
00,1F 
4C , 20 

55.20 
3D , 30 
30,3D 
3D , 3D 
65,69 

65.72 
65,6E 

68.73 
0C.4B 
20,61 
20,53 
6C, 64 
2 E , 1 F 

72.20 
61,62 
20,6C 
6F , 64 

69.67 
6C, 64 

65.74 

44.61 
05,0F 
6C, 64 

72.20 

65.20 
65,72 

68.61 
70,6F 

69.65 

75.65 
75,6E 
61,62 
6C, 69 
20,46 


6C,65, 

69.66, 
JF.06 

.20,69, 
,5A,75, 
.20,20, 
.20,20, 
,72,20, 
20,6E, 
, 69,6E, 
20 , 00 . 
.65,73, 
, 5B,46, 
20,20. 
,00,07, 

45.20, 
4E,20. 

,30,30, 
, 30,3D 
. 30,1F, 
,20,53, 
,20,60, 
,20,61, 
65,6C, 
,6F,65, 
,75,66 
.70,69, 
20,6C, 
05,00, 

20.64, 
65,72, 

65.65, 
65,72, 

.65,6E, 
65,72, 
7A,65, 
20,61, 

64.69, 
65,72, 
20,77, 

,20,4B, 
, 1F,05, 
.60,74, 

70.70, 
20,62, 

62.65, 

64.20, 
65,6E, 

65.67, 
65,6C, 


72,19F0 
67,3797 
12,212A 
73,1CC1 
67,3815 
20,3EE0 
20.1FEO 
67,1057 
69,2700 
2E , 2516 
20,1F AO 
69,22E3 
45,2775 
20,3 5B0 
41,1C8 7 
49,0350 
47,0 4 6 F 
3D,OECB 
3D,14 E B 
05,1497 
70,18AE 
75,25AF 
62.2520 
6E,2A9A 

72,36FC 
20,2030 
65,25CF 
65,26FD 
4A,2 55C 
61,2129 
20,20D0 
72,244C 
1F , 3A3F 
65,0925 
20,0990 
6E,229C 
62,1C68 
65,2CEF 
20,0990 
65,030B 
6F ,2689 
10,2666 
65,2715 
65,3D30 
61,34FD 
72,2E48 
62,0972 
20,2166 
65,0137 
64,23B8 


1e=104:MEMORY &7FFI 
="*ENDE*"THEN 629 


("&"+a$) 
r=ad r+1 

>65535 THEN pr=pr- 
a:IF pr<0 THEN pr 


65535 

=pr+655 


VAL(" &" + pr$):IF pr2<0 THE 

EN PRINT"Pruefsummenfehle 
: STOP 
:GOTO 618 

.BIN",b,&8000,&1000 


11850] 
[1606] 
[1137] 
I 1965 ] 
[2269 3 
[ 2081 ] 
(1343] 
l 1066 ] 
[1639] 
[ 1523] 
[ 1683 ] 
[1690] 
[ 1285] 
[ 1671] 
[ 1535 ] 
[1646] 
[2031] 
l 1659 ] 
[ 1420 ] 
[ 2983 ] 
[1864] 
[ 1669 ] 
[1777] 
[1458] 
[1767] 
[ 1795] 
[2185] 
[2584] 
[1926] 
[ 1696] 
[1768] 
[1417] 
[1547] 
[2552] 
[2186] 
[ 1252 ] 
[1794] 
[3104] 
[1599] 
[1461] 
[1835] 
[1750] 
[1310] 
[617] 

[2028] 
[1591] 
(1963] 
[ 1349 ] 
[ 1506] 
[ 1506] 
[ 502] 
[2182] 
[1127] 
[117] 
[462] 
[883] 

[ 717] 

[2485] 
[1890] 

[375 ] 

[2610] 

[3615] 

[850] 

[ 1883] 
[346] 




100 ************************************** [1668 

* * 

101 ■* P0PC0RN2.DAT - DATA-Lader von 'CPC' [2594] 

* 

102 '************************************* [1668] 
** 

103 ' [117] 

Lisling Popcorn 


66 PC 1 ’88 









ProSoft-Preise liegen richtig! 

® 0261/40 47-1 -Qx] 862476 PSOFT • Telefax0261/40 47-252 

Wir suchen ständig günstige Einkaufsquellen für die angebotenen und neue innovative Produkte. 
Günstige Möglichkeit der Finanzierung durch Ratenkredit. Fordern Sie die Unterlagen an. 


Commodore-PC Commodore-PC 

PC-10 640 K3 Häuplsoeicta, sende sc pnMe Sönfttslelle, 2Ofe^ellenla jf- 
wefkeäJüOKB.AGABildschinradapler.Tastati/.Mcntct, US-DC&'GV*-Baac 1798,— 

PC-10 2/20 wie PC-1C, jecoch mit zusätzlicher 20 MB Festplatte 2378,- 

PC-IO 2/30 wie PC- IC, jedoch mit zusalzJicfiar 3C MB Festplatte 2448,— 

PC-10 2/40 «e PC-10, |e0o*nl2uWe'40 MB Fesolaite 
(WsLai/»eftC;undD:pai*cnieril 2798,- 

PC-AT 40/40 8C286CPU(&'lOMHzi. I MBHaptspeictief, I DisKner.lautart 12 MB, i Fea- 
pteae40MB.serteleirdpa'alWeS<tn«siefle.eGAGf3H<a£JiErter,Mcritor14' 
Teaau.MS-JO&'Gw-Bast _ 5298,- 

I Atnlga 2000 mit Monitor 1084 2848,- | 

I Amiga 500 jetzt zum neuen ProSoft-Preis! Unbedingt anrufen! | 

Tandon - Tandon - Tandon 

PC 1978,- PCA 3478,- PCAplUS 4278,- 

XPC20 2498,- PCA 20 3978,- PCA 20 plus 4748,- 

XPC2/20 2598,- PCA30 4398- PCA30plus 5178,- 

XPC2/30 2648,- PCA 40 4298,- PCA 40 plus 5098,- 

XPC2/40 2948,- PCA 70 5298,- PCA 70 plus 6098,- 

saide und pertee Sciymsclt, ' 


iOBi«ianiajtwe4(iifct8. iPeMpUneitOMBwrma!i9rt.«SrTB\.Hwcuteiu»T»- 
Iüe&3itoie,l4yral4- Tastatj, MS-DOS, GW3rac,US-rtyflawi 6698,- 


Target20 4348,- PAC2B6 3978,- 

Target40 4748,- PAC 286 plus 4798,- 

Target20plus 5148,- PAC Floppy 948.- 

Target40 plus 5498,- Data PAC 798,- 

EGAOption (Aufpreis) 1098,- Addon-PAC 475,- 

MF-Tastatur (Aufpreis) 78,- Controller 475,- 

MF-Tastatur (Bnze oreisj 248^- Datenkabel 248,- 

Zusatzkarten-Erwerterungen-Software 

Seagate-Festplatten 




I 30 MB Festplatte SaagataST23fli nc. Wi-Ccdel» u naMtsarft tT 

20 MB Festplatte (Seagate ST 225), 65 ms für XT/AT 
30 MB Festplatte (Seagate ST 238), 65 ms für XT/AT 
30 MB Festplatte (Seagate ST 4038). 40 ms für XT/AT 
40 MB Festplatte (Seagate ST 251). 40 ms für AT 
40 MB Festplatte (Seagate ST 251 /1) 28 ms 
80 MB Festplatte (Seagate ST 4096), 28 ms 
ST 4053 40 MB,28 ns 1188,- ST125-0 W, 20 MB, 40 ms 

ST 125-1 37:'. 20 MB, 28 ms 648,- 

S T '57FPn: Orr:;« ; .«ME Iflms 998,- 
STI57RP-iinci.Conrc.le- 1048,- 

Festplattencontroller 
XT-Controller 148,- 

XT-RLL-Controller 198,- 

AT-RLL-Controller 448,- 

Tandon-Festplatten 
Es rouB ncht immer Seagate sewi IQMBvcnTandor -das Qualitatsproduktl 

| TM 9262 Slave 10 MB-Fa»tplatf 198,- | 

TM 965-2 360 K-Floppy 198,- 

TM 975-8 1.2 MB-Floppy 298,- 

TM 9262 slave 20 MB-Festplatte 498,- 

TM 9262 AI 20 MB-Festplatte + Controller 648,- 

TM 9755 AT 40 MB-Festplatte 1078,- 

TM 9755 AI 40 MB-Festplatte + Controller 1378,- 

Microscience-Festplatten 

HH 825 (2CMB 65ms) 488,- HH 83O'20MB RLL,65msi 528,- 

HH 32512CM8.35") 528,- HH 330(20MB.ALL.3,5') 538,- 

HH 1050 (40 MB) 1198,- HH 1060 (40MB. BLL! 1298,- 

HH1090I80M3) 1790,- 


«ärl 

468,- 
478.- 
998,- 
848,- 
998,- 
1798,- 
598,- 

ST157R-0 3'::'.49MB,23ms 848,- 
ST157R-I 948,- 

Formatlerungssoftware 

Disk Manger 48,- 

SpeedStor 128,- 

V-Feature de Luxe 248,- 


Prlam-Festplatten 

V-185 18ms, 73MB 

Tape Streamer 

1848,- 

NEUI»OIBIjp«Sn»»/ll(iy*PTCOmt!wiSd!.aä(lutk r JKWTrarW 

50 MB Tape Streamer Wanqtek FAD 5000 

788,- 

978,- 

Subsysteme - 10 MB Laufwerke 

Take Ten Disk Cartridge Subsystem intern 

Take Ten Disk Cartridge Subsystem extern 

1448,- 

— 798,- 


Hardcards 

30 MB Hardcard (Microsciencei 

Grafik-, 


646,- 


20 ME Harccsrd (Tandon) 
40 MB Hardcard (Fujitsu) 


648,- 


Enhanced 


.DHL 


VEGA de Luxe Autoswitch 
Hercules Graphic Card plus incl. RAM-FONT 
Hercules kompatible Grafik-Karte 
Paradise EGA 

Paradlse EGA Autoswitch 80-Zeichen (650 x 350) 


598,- 

578,- 

148,- 

348,- 

368,- 


rGenoä Super Hi-RES 


498.-1 

Monitore 

NEC JC 1401 P3E Multlsync, 14' 

' EGA Monitor 

1298,- 

| NEC Mullisyncptus Paradi» EGAAutcawrlch 132-Zechen 

WS,- | 

14 ” ADI -kompatibler Monitor grün oder bernstein 
Co-Prozessoren 80B7 (5 MHz) 

8087 8 MHz) 349,- 80287 ( 6 MHz) 

80287 (8 MHz) 599,- 80287 (10 MHz) 

298,- 

249,- 

399,- 

649,- 

T Handy Scanner 


596.- 1 


Microsoft kompatible Mouse, seriell 98,- 

Alles ZubelwrundSattwarenmduindenPCzusehrgünstgenPieisen.FordernSediePreis'istean! 


Plantron 


Plantron 


Plantron 


Plantron PT 16 LC umschatte 4,77/0 MHz. 256 KB Hauptspeicher, Mono- 
dvcm-Gtaliktarto iHeKuleskOTpatibet), pnlder Druckeramacfil., 1 Dskettenlauf- 
w»k 360 KB. Taster (deutsch) rmswarstsm Coraortlock, 
MS-OOSlMW-Base 1245,- 

Ptanfron PT LC/20 ms PT LC. zusäd. 20MB Festpl. 1978,- 

Plantron PT LC/30 w« FT LC. zusätzi. 30 MB Festpl. 1998,- 

Plantron PT XT Turbo 4,77 ods 8 MH: Takt, 256 KB Hauptspeicher. Mono- 
dtrom-Grafiklarte (Herkules KompatiMfl. Müttflkttaekaite mtt peraWer Schnifl- 
Beki, seneüer Schnittstelle. Gans Port, Editatuhi, MS-DOS 32 ind. Basic, RAM 
Disk, Ouckerspoctef. Bedienungsanletung und ZubehCr, 2 Disket¬ 
tenlaufwerke 4 360 KB, Tastatur mit separatem CureortMck 1698,- 

Plantron PT XT 2/20 Turbo 

wiePTOTTurbo.zusätzllch20MB Festplatte 2348,- 

Plantron PT XT 2/30 weFDCrTurt». 

?jsaöicti 30 MB Festpaae 2398,- 

Ptantron PT ST 6 MHz oder 6 MHz Takt, 640 KB Hauptspeicher (bis l MS on 
Boaid). Mcnoclvom-Grafikiiarta (Herkules kompatibel), parallele Dnskerwinirt- 
sttte OiskeBertaufwerk 1 2 M8. Tastatur (deutsch) m* sap. Curwöock. Echtzert- 
uhr, MS-DOS 32/GW-Sasic, 

BedanungsankKung und ZubehC» 2298,- 

Ptantron PT-ST/20 nie PT-ST. aisatBich 20 MB-Pla» und 
Roppy-Hard-O^-Contro»« 2898,- 

Ptantron PT-ST/30 2998,- 

Plantron PT-AT wie PT-ST, zusJtzl. Multi l/O-Kerte mit paralleler und seneter 

SchnttSefe. Game Port 

Flopoy-Haid-Olsk-CaitroSB 2698,- 

Plantron PT AT/20 we PT AT zusatzt. m. 20 MB Festpl. 3198,- 

Plantron PT AT/30 wie PT ATasao. m. 30 MS Festpl 3398,- 

Plontron PT-AT/40wiePT-ATzüsAt2 40MBFestü 3598,- 

PT-AT/73we PT-ATasBzfich73MB-Piattait8m^ 4598,- 

PT-AT 110 wie PT-ATzus4tz8eh95 MB-f estplatte 4798,- 

PT-286 AT/64 BaPv AT mit 64-MB-FeHpfaKe 
(Brtteerfrager Ste andere Konllguraliofion) 3898,- 

PT -386 HT/2 Hercaes-KartB und 32 M3-F«tpsat!e 5698,- 

PT -HT/2-73 wieHT/2jedoch mit73 MB-Festplatte 6598,- 

PT-HT/2-110 wlerfT/2 jedoch mit 110 MB-Ferpiatte 7198,- 

PT 386 HT/40 mit Super EGA-Kariaund40MS-Festoiatte 6298,- 

PT 386 HT/73 mit Super EGA-K*1»und73MB-Festptatte 7198,- 

PT 386 HT/IIOmlt Super EGA-KarleinJtlOMB-Festplatte 7798,- 
*irfMmdi4wFi.PlifltraflbesätieMirlr l tfiil^rdlesiiiictl((nPrtiutfiirdiS«M- 
«ufn/tten und Einbau der Festplettwi und Karten durch unser« gHdmltMi Techniker 


Schneider PC - Schneider PC 

PCI 512 

PC-1512Mono6oppyvers4onen 
PC1512MM/SD 1349,- 

PC1512CM/SC 1796,- 

Aufcreis 20 ME Seagate Jiompi eirgeo I 798,- 
Aufpreis 30 MG Seagate(ltompi eirgeP) 846,- 
Aufpreis20 MB Flscard Lapine 698,- 
Aufprois 30 MB Filecard Lapire 846,- 
PC1640 

PC-1640Moiwfloppyverslonen 
PC 1640 MD/SD 1498,- 

FC1640CttSD 1978,- 

PC1640ECWSD 2599,- 

Aufpreis 2C ME Seagate :korpl, eiraet : 798,- 
Aulpreis 3C MB Seagate ikompl. eir^b j 848,- 
Aulpres 20 MB Filecarc Lapine 698,- 
Aufpreis30 MB RlecarO Lapine 848,- 


PC-15l20oppelfloppyv8rsionen 
PC1512 MMOO 
PCI512CM,TO 
Aoilpres 2D MB Filecard Lapine 
Aufpreis 39 MB FSecard Lapine 
PC-1512Fes1plattenvsfSionen 
PC1512MM/HD20 
PC 1512CM/HD20 
PC-1640Doppelfloppyvierstonen 
PC 1643 MD/DD 
PC 1640 CD,DC 
PC1640ECCVDD 
Aufpreis 20 MB Filecard Lapine 
Aufpreis 30 MB Fterd Lapine 
PC-1640FestplattenversionenSchneider 


1699,- 

2198,- 

698,- 

048,- 

2699,- 

2998,- 

189B,- 

2346,- 

2948,- 

698,- 

848,- 


PC1640 MD/HD 20 
PC164CCD'HD20 
PC164CECD/HD20 


2798,- 

3198,- 

3798,- 


999,- 

2098,- 

749,- 


Drucker 

DMP3160 

DMP400C 

103500 


Joyce 
PCvV-e256 
PCW-6512 
Schneider6128griün 

Atari - Atari ■ 

Atari 520 STM Tastatur, 512 KB RAM, 192 K5 TOM. 

HF-Modulator. Floppy Sf 354. ohne («tovior, Maus. Base 
Atarr 1040 STF Tastatir. 102’JKäPAM. 192 KB ROM .mte- 
gnate F^opcy 720 KB, oine Monitor, M 2 us, Base 

Monitor SM-124 _ 

Der Preishammer von ProSoft: 

Atari 1040 STP, Tastatur, 1024 KB RAM, 182 KB ROM. integrierte 

Ftccmi 720 KB, Monochtom Afcnloi SM 124,Mau3.Basir: 1498,- 


498,- 

848,- 

798,- 

Atari 

848,- 

1165,- 

469,- 


Brother - Brother • Brother 

M-110S 469,- M-1409 799,- M-1509 948,- 

M-1709 1148,- M-2024L+ 1999,- M-1724L 1399,- 

Star- Star -Star nx-is 948,- 

NL-10 539,- zusätzliches Interface für NL-10 78- 

ND-10 098,- ND-15 1198,- NR-10 1148,- 

NR-15 1398,- NB 24-10 1298,- NB 24-15 1798,- 

NB-15 2348,- SR-10 798. - EBZ f. NL-10 199,- 

L NX-1QQO (wie LC-10) 440^1 


Multitech 

Multitech 

Multitech 

dnarp 

PC-1246S 

Pocket-Computer 
94,- PC-I20C 

268,- 

PC-1460 

275,- 

Acer 500S 

1478,- 

AceröOOD 

1798- 

Acer500E 

2128.- 

PC-1248 

123,- PC-136C 

344,- 

PC-1475 

275,- 

Acer 710B 

2398,- 


3048,- 

Acer71QE/30 3098.- 

PC-1260 

206,- PC-1421 

240,- 

PC-1500A 

344,- 

teer 910 B 

3248,- 

Acer 91OF 

3948,- 

Acer910E 

429B,- 

PC-1262 

275,- PC-1425 

275,- 

PC-1600 

690,- 

teer 900 B 

4146- 

Acer900F 

4848.- 

Acer900E 

5248,- 

PC-1270 

115,- PC-1450 

219,- 

PC-25CC 

549,- 

AcerllOOB 

8898,- 

Acer 1100E 

9748,- 

Acer 1100H 

10598,- 

EPSON 

EPSON 

- 

EPSON 


MPC 1100 H/95 A3386 CPU PS MHZ), t MB ha.ptsped«y. I OskattroAitr« 

12 MB, t Fe5!pKe95M5t0Tnätet|Täms. /sreie. I pa'Sliac 

ScfrktatdlB, Mtyncr 14*, Mjitiiuikticrstasatui, 1^03532 11 448,- 


Der neu« Renner von EPSON: LX-800 
ix-wgyg/p 


Netzwerke 


Netzwerke 


FX-800 937,- 


529,- 


TRANS-NET 


Trans-Net Starter Kit zistanpttien Meretzung »on 2PCibestehend aus: 2 Netz- 

wediLrlei kaiei ms itscft,e«d8rtta>3er uidTjb-Bowrt ifT-Softnae 
iBetreoaySem!. Behetean'etuxi 

1698,- 

Trans-Net Netzwerkkarle 

NET-Board (Profi-Netzwerk) 

696,- 

Voll kampati&e« ru NETBIOS, mn Cache-Unterstützung, 25 MBB Datentranshir 

NET-Board Einsteck karte 

798,- 

Trunk-Cable iVerkabelunq für 2 PC'S) 

248,- 

Betriebssystem OS 6.20 C 

(je nach Benutzeranzahl) für 3 Benutzer 

548- 


LQ-500 848,- LQ-850 1 298,- 

LO 1 050 1698,- LQ-2500 2448,- 

EX-800 1319,- EX-1000 1649,- 

Einzelblatteinzug: für LQ-850 298,- 
Görlitz- Interface EPSON/C64 od. C128 

NEC - NEC - NEC - 


- FX -1000 1308,- 


KAYPRO - KAYPRO - KAYPRO - KAYPRO 

Kaypro PC Mono Pack 2398,- KayprC'PC30MonoPack 2998,- 

Kaypro 2861 Mono Pack 4398,- 

Kaypra 386 E 40 mit 40 MB-Festplatte und EGA-Wonder Graphic Adapter 10478,- 
Kaypro386 E1 lOmitl löMB-Festtkatte und EGA-Wonder Graphic-Adapter 11678,- 

QKI - OKI - OKI 

Lokimate 20 Farbdrucker mit Interface 498,^1 

DiegüRsligenPreiwfürdhgKaniteOKI-PrGidufclpAttemiLaMrikMwfalwwiSieteiimamTel^on! 

Olivetti - Olivetti - Olivetti 

M 240/55 G 8C86CPU(10 Whti.« « 3 rlauKspeCw, 2 Dskre-Iaufwake|525". 36C KB), 
serielleun-dparalleleSchniltsL,EchtzaliiT Bus ^merte üi.-i: GrafkConlrol- 
8r, 12"IMonochrom-Monilor (grün, Demserode »ek MS-D0S.G<V Säs*-; 3348,— 

M 240/0520 G 9066 CRJ (IC MHz), 64D KE Hauptspeicher, 1 DekKrla.'r.-jk (525", 
360KB|, 1 Festclatie20MB,senelleundparalleleScfinfttsteiie, Echtzeilulr, BusCon^ar, OtvetiiGrafik 
Controller, 12" Mcnochrom-Mcnitcr 

(grün, ben stekioder vsiiTi, MS-DOS, GW-Basic 3948,- 

M 28 AT-Einstiegskonfiguration 1 16BilöC236 oMHz. l MBHauptspei- 
• re se-sr/c zerälefe S;iritt5telä, 1 Disketlenlaulwerk 1 .2 MB, 1 Festplatte 
»«.Moro.Tastsuv MS-DOS, GW-Basc 5398,- 

Software Software Software 

MS-Word3.01 
dBase III plus 
Oipper Compiler (Netzwerk) 

Turbo Pascal (8087/BCO) 178,- 
Turbo Prolog 


IX-800 1579,- 

SQ-2500 3198,- 
für LQ-1050 398,- 
198,- 

NEC - NEC 


P5 

1998,- 

P 2200 

898,- 

P 7 

1398,- 

P 6 

1148,- 

P 7 color 

1648,- 

P 6 color 

1448,- 

P 7 seriell 

1648,- 

P 6 seriell 

1398,- 

P 7 seriell color 

2298,- 

P 6 seriell color 

1848,- 

Pln-Feed-Trretortüi P6 

109,- 

Bidirektionaler Tractor lür P6 298,- 

Pin-FeeaTraitorluiP7 

228,- 

BWiiektionaierTractorfür P 7 348,- 

art-stai-fwurfftpy 


_ 


Kyocera-Laserdrucker Kyocera-Laserdrucker 


F -1000 

■L-12W 


Citizen 


4999 ,- 

-?498.- 


F -2200 

-E-.3W.Q. 


Citizen 


10698,- 

14498 ,- 


Citizen 


Nun hat »ich Citizen dem Pretinhruu de* NL-10 angepafit: 

LSF-120 0 Commodora- oder Parallel-Scbnittstefle 398,- 

is-w _568,- 


Panasonic 

KX-P 1083 948,- 

Seikosha 


KX-P 1081 478,- 
KX-P 15921195,- 

Seikosha 


KX-P 1082 698,- 
KX-P 15951598,- 

Seikosha 


878,- 

MS-Multiplan 

558,- 

1378,- 

Framework II 

1378,- 

1898,- 

Fox Base plus 

898,- 

178,- 

Turbo Basic 

178,- 

268,- 

Turbo C 

268,- 


SP-180A 449,- SP-1200 AS 

M D -1300 AI 1098,- SP-1200 AI 

528,- 

528.- 

SP-180 VC 449,- 
MP-5300 AI 1378,- 

r SL-80AI nur 768,- 

SL-80 VC 


768,- 

1 Einzelblatteinzufl SL-80 



348:- 

Disketten No-Name 

lOStück 

50 Stück 

lOOStück 

3" Maxell 

70.-OM 

330, DM 

650 - DM 

3'/z" 1D 

35.-0M 

149,-DM 

249, DV 

3Vj"2D 

39, DM 

159.-DM 

299-DM 

5 i'2D 

19,-DM 

59,-DM 

89.- DM 


5'/«’’ 1 D 

100 Stück 

79,- OM 

5'/4" 1 D 

1000 Stück 

698,- DM 

6V«" 2 0 

100Q. Stück 

600.- PM 


5’/4" No-Name HD, 1,8 MB 


10 Stück 


48,- DM 


ProSoft GmbH 


Filiale München Theresienstraße56,0000 München2,Tel. 089/28093 89direkt 

bet der technischen Hochschule. Bitte beachten Sie, daß nicht ständig sämtliche Ware in unse- 
rer Filiale München vorrätig ist. Rufen Sie an! 






















































































I—Programm 


104 DATA 9000,65,72,2E, 1F,05, 12,44,61 , 2AB9 

105 DATA 9008,62,65,69,20, 77,65, 72,64,25CC 

106 DATA 9010,65,6E,20,20,67,65,67,6E,2D0C 

107 DATA 9018.65,72,69,73,63,68,65.20,2642 

108 DATA 9020,46,65,6C,64,65,72,1F,05,3356 

109 DATA 9028,13,69,6E,20,65,69,67,65,1E27 

110 DATA 9030,6E,65,20,76,65,72,77,61,2F4F 

111 DATA 9038,6E,64,65,6C,74,2E,1F,05,2743 

112 DATA 9040,1 5,47,65, 77,6F,6E,6E,65,12E9 

113 DATA 9048,6E,20,20,68.61 , 74,2C,20,3F20 

114 DATA 9050,77,65,72,20,20,64,65,6E,2EB4 

115 DATA 9058,20,20,61,6E,64,65, 72,65, 10F5 

116 DATA 9060,6E,1F,05,16,76,6F,6C,6C,33B8 

117 DATA 9068,68,6F,6D,6D,65,6E,20,20,27C0 

118 DATA 9070,20,76,6F,6D,20,20,20,46,0736 

119 DATA 9078,65,60,64,20,20,67,65,70,2726 

120 DATA 9080,6F,70,70,74,1F,05,17,68,226A 

121 DATA 9088,61, 74,2E,00,1F, 17 , 12,4E,288E 

122 DATA 9090,45,55,53,54,41,52,54 , 1F,3B17 

123 DATA 9098,17,16,20,20,45,4E,44,45,OBDD 

124 DATA 90A0,20,20,1F,23,10,53,OA,08,1800 

125 DATA 90A8,50,OA,08,49,OA,08,45,OA,2FE0 

126 DATA 90BO,08,4C,OA,08,45,OA,08,4E,149E 

127 DATA 90B8,OA,08,44,OA,08,45,OA,08,0E68 

128 DATA 90C0,00,1F,OB,OD,44,49,53,48,0599 

129 DATA 90C8.45,54,54,45,4E,4D,45,4E,3A00 

130 DATA 90D0,55,45,1F,OB,10,4E,41,4D,39E7 

131 DATA 9008,45,20,3A,1F.0C,14,4C,4F,2CD7 

132 DATA 90E0,41,44,1F, 14, 14,53,41,56,3218 

133 DATA 90E8,45,00,1F,05,06,43,4F,4D,20DF 

134 DATA 90F0,50,55,54,45,52,3A,1F,05,31D3 

135 DATA 90F8,OA,45,49,4E,53,54,45,4C,1A8E 

136 DATA 9100,4C,55,4E.47,45,4E,1F,14,3DCA 

137 DATA 9108,OA,46,41,52,42,45,4E,3A, 1A22 

138 DATA 9110,1F,05,OE.47,45,53,43,48,08DA 

139 DATA 9118,57,49,4E,44,49,47,4B,45,37C7 

140 DATA 9120,49,54,3A,00,20,7A,75,66,36A4 

141 DATA 9128,61,65,6C,6C,69,67,00,62,2036 

142 DATA 9130,65,72,65,63,68,6E,65,6E,26CC 

143 DATA 9138,64,00,50,OA,08,4F,OA,08,39C0 

144 DATA 9140,50,OA,08,43,OA,08,4F,OA,2F54 

145 DATA 9148,08,52,OA,08,4E,OA,08,00,1308 

146 DATA 9150,1F,04,19,63,6F,70,79,72,09A8 

147 DATA 9158,69,67,68,74,20,A4,20,31,24E1 

148 DATA 9160,39,38,37,20,62,79,20,43,1497 

149 DATA 9168,61,72,73,74,65,6E,20,53,27A3 

150 DATA 9170,63,68,61,61,72,00,3E,43,221F 

151 DATA 9178,50,43,34,36,34,3C,00,3£,3C4E 

152 DATA 9180,43,50,43,36,36,34,3C,00,3F98 

153 DATA 9188,00,00,00,00,00,04,03,10,0186 

154 DATA 9190,C3,E4,C4,FO,C4,00,00,00,4920 

155 DATA 9190,00,00,00,00,00,OQ,00,00,0000 

156 DATA 9 IAO , 00,00,00,00,00,00., 00,00,0000 

157 DATA 91A8,OF,FF,00,11,£E,FF,00,00,3D0C 

158 DATA 91B0,EF,FF,00,44,BB,77,08,EE,48FA 

159 DATA 91B8,11,33,8C,FF,00,11,CE,FF,1B1 7 

160 DATA 91C0,00,88,67,FF,00,DD,22,00,2220 

161 DATA 9108,00,70^0,70,60,60,00,60,0360 

162 DATA 9100,00,60,00,60,00,60,00,00,1F80 

163 DATA 91D8,00,FO,FO,FO,FO,00,00,00,2A80 

164 DATA 91E0,00,00,00,00,00,00,00,00,0000 

165 DATA giEß.OO.FO.CO.FO.CO.OO.FS.OO.aCEe 

166 DATA giFO.Fa.OO.FS.OO.Fa.OO.FS,60.61FE 

167 DATA 91F8,00,60,00,60,00,60,00,60,1FE0 

168 DATA 9200,00,60,00,60,00,60,00,00,1680 

169 DATA 9208,00,00,00,00,00,00,00,00,0000 

170 DATA 9210,00,00,00,00,00,00,00,00,0000 

171 DATA 9218,F3,00,F3,00,F3,00,F3,00,619E 

172 DATA 9220,F3,00,F3,00,F3,00,F3,60,61FE 

173 DATA 9228,00,60,00,60,00,60,00,70,1660 

174 DATA 9230,FO,70,FO,11,FF,11,FF,00,7D52 

175 DATA 9238,00,00,00,00,00,00,00,FO,OOFO 

176 DATA 9240,FO,FO,FO,FF,FF,FF,FF,00,500A 

177 DATA 9248,F3,00,F3,00,F3,00,F3,FO,616E 

178 DATA 9250,F3,FO,F3,FF,FF,FF,FF,00,51EA 

179 DATA 9258,00,01,08,00,00,00,00,12,0152 

180 DATA 9260,84,00,00,00,00,34,02,00,4354 

181 DATA 9268,00,00,00,34,02,00,00,00,0550 

182 DATA 9270,00,34,02,00,00,00,00,12,1552 

183 DATA 9278,84,00,00,00,00,01,08,00,4214 

184 DATA 9280,00,00,00,00,00,00,00,00,0000 

185 DATA 9288,01,OF,OF,00,00,00,01,FO,0252 

186 DATA 9290 , El,00,00,00,00,78,El ,00,70A2 

187 DATA 9298,00,00,00,34,El,00,00,00,0448 

188 DATA 92A0,00,34,El,00,00,00,00,34,1114 

| Lisling Popcorn 


[2393) 
11779) 
[1100] 
[2057] 
[ 1526 ] 
[2085 ] 
[1176] 
[ 836 ] 

[2065] 
[1514] 
[2180 ) 
[1545] 
[1627] 
[2046] 
[2066] 
[1148] 
[1426] 
[ 801 ] 

[ 1349 ) 
[ 1840) 
[1852) 
[1798] 
[ 908 ] 
[1348] 
[ 1974 ] 
[ 1871 ] 
[2308] 
[ 2024 ] 
[1777] 
[1874] 
[ 1664 ] 
[ 2022 ] 
[865] 

[ 1478] 
[1191 ] 
[1362] 
[983] 

[ 1831 ] 
[2008] 
[2183] 
[1396] 
[ 1937 ] 
[ 1229 ] 
[1156] 
[1770] 
[1152] 
[1798] 
[ 2293 ] 
[ 1511] 
[ 1186 ] 
[ 1824 ] 
[ 1433 ] 
[1083] 
[1270] 
[ 1792 ] 
[1600] 
[ 1939 ] 
[1436] 
[1424] 
[2426] 
[830] 
[1423] 
[1429] 
[1551] 
[1315] 
[1540] 
[ 1403 ] 

[1673] 
[ 1218 ] 

[1447] 
[2853] 

[1487] 

[1897] 
[1450] 

[2331] 

[1511] 

[1617] 

[928] 

[1916] 

[928] 

[ 1503] 

[ 1935 ] 
[1553] 

[ 1355 ] 

[ 1639 ] 


1 89 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 

2 1 1 
212 

213 

214 

215 

216 
2 17 
218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 


DATA 92A8,El,00,00,00,00,34,El,00.7192 
DATA 92BO,00,00,00,34,El,00,00,00,0448 
DATA 92B8,00,34,E1,00,00,00,00,34,1114 
DATA 92CO,El,00,00,00,00,34,El,00,7192 
DATA 9208,00,00,00,34,El,00,00,00,0448 
DATA 9200,00,34,E1,00,00,00,00,78,1158 
DATA 92D8,F0,08,00,00,0F,FO,FO,87,78DF 
DATA 92E0,08,00,0F,OF,0F,OF,08,00,0544 
DATA 92E8,00,00,00,00,00,00,00,00,0000 
OATA 92FO,00,00,00,00,00,00,00,00,0000 
DATA 92F8,00,00,00,00,00,00,00,FF,00FF 
DATA 9300,FF,FF,FF,FF,FF,BB,FF,FF,5445 
DATA 9308,FF,F8,03,FF,FF,FF,FF,F8,5312 
DATA 9310,03,FF,FF,FF,F F,F8,03,FF,4B31 
DATA 9318,FF,FF,FF,F8,C3,FF,FF,FF,5405 
DATA 9320,FF,F8,C3,CF,OF,FE,F7,F8,5786 
OATA 9328,03,BC,F0,70,F3,F8,C3,F8,5246 
DATA 933O,F0,F4,F3,F8,C3,FC,F0,FE,5016 
DATA 9338,F7,F8,C3,FF,FF t FF,FF,F8,5712 
DATA 9340,03,FF,FF,FF,FF,F8,03,FF,4B31 
DATA 9348, FF,FF,FF,F8,03,FF,FF,FF,5405 
DATA 9350,FF,F8,03,B8,FF,FF,FF,F8,5752 
OATA 9358,C3,FF,FF,FF,FF,FF,FF,00,4BAA 
OATA 9360,00,00,00,00,00,00,00,00,0000 
DATA 9368,00,00,00,00,00,00,00,00,0000 
DATA 9370,00,00,00,00,00,00,00,00,0000 
DATA 9378,00,00,00,00,00,00,00,10,0010 
DATA 9380,80,00,00,10,00,10,80,00,4040 
DATA 9388,80,30,80,10,80,10,00,10,5800 
OATA 9 390 , CO, 10,80,30,80,00,EO,00, 7 2CO 
DATA 9398,00,70,00,00,40,00,00,20,1E20 
DATA 93A0,00,00,00,23,40,00,00,00,0050 
OATA 93A8,00,EF,7F,00,00,00,11 , EF.34ED 
DATA 93B0,7F,88,00,00,33,EF,7F,CC,1F96 
DATA 93B8,00,00,77,EF,7F,EE,00,00,0050 
DATA 9300,77,EF,?F,EE,00,00,FF,FF,0041 
DATA 9308,FF 1 FF,00,00 1 FF,FF 1 FF,FF > 4545 
DATA 9300,00,00,FF,FF,FF,FF,00,00,1414 
OATA 9308,FF,FF,FF,FF,00,00,77,FF,5041 
DATA 93£0,FF,EE,00,00,77,FF,FF,EE,4554 
DATA 93E8,00,00,33,FF,FF,CC,00,00,0D58 
DATA 93F0,11,FF,FF,88,00,00,00,FF,200F 
DATA 93F8,FF,00,00,00,00,33,00,00,7E04 
DATA 9400,00,00,00,00,00,00,00,00,0000 
DATA 9408,00,00,00,00,00,00,00,00,0000 
DATA 9410,07,28,00,00,00,00,OF,10,0982 
DATA 9418,00,00,00,01,08,00,00,00,0060 
OATA 9420,00,01,28,20,00,00,00,01,0741 
DATA 9428,08,80,00,00,00,11,88,00,2554 
DATA 9430,00,00,00,33,00,00,00,00,0550 
DATA 9438,00,33,00,00,00,00,00,FF,15BF 
OATA 9440,FF,00,00,00,11,FC,F7,88,709E 
DATA 9448,00,00,33,F9,FF,00,00,00,0038 
DATA 9450,77,F3,FF,EE,00,00,76,F7,165B 
DATA 9458,FF,EE,00,00,FE,FF,FF,FF,4100 
DATA 9460,00,00,FE,FF,FF,FF,00,00,1434 
OATA 9468,FF,FF,FF,FF,00,00,FF,FF,5151 
OATA 9470,FF,FF,00,00, 77,FF,FF,EE,4114 
DATA 9478,00,00,77,FF.FF.EE,00,00,0550 
DATA 9480,33,FF,FF,CC,00.00,11,FF,35BD 
DATA 9488,FF,88,00,00,00,FF,FF,00,5F82 
DATA 9490,00,00,00,33,CC,00,00,FF,05AF 
DATA 9498,FF,FF,FF,FF,FF,8F,0F,0F,5585 
DATA 94A0,0F 1 0F,1F,8F,0F I 0F,0F,0F,0F05 
DATA 94A8,1F,8F,OF,OF,OF,OF,1F,8F,2DA5 
DATA 94B0,OF,0F,0F,0F,1F,8F,0F,3F,07B5 
DATA 94B8.CF,OF,1F,0F,OF,7F,CF,OF,6F45 
DATA 9400.1F,8F.OF,FF.CF,OF,1F,8F,24A5 
DATA 94C8,0F,FF,CF,0F,1F,8F,0F,3F,2385 
DATA 94D0,CF,0F,1F,8F,0F,3F,CF,0F,6E45 
DATA 94D8,1F,8F,0F,3F,CF,0F,1F,8F,28A5 
DATA 94E0,0F,3F,CF,0F,1F,8F,0F,3F,13B5 
DATA 94E8,CF,OF,1F,8F,0F,3F,CF,OF,6E45 
DATA 94F0,lF.SF.OF.SF.CF.OF.lF.SF,28A5 
DATA 94F8,0F,3F,CF,0F 1 1F 1 8F,3F,FF,1315 
DATA 9500,FF,CF,1F,8F,3F,FF,FF,CF,4465 
DATA 9508,lF.BF.OF.OF.OF.OF,1F,8F,2DA5 
DATA 9510,OF.OF.OF.OF.IF.SF.OF.OF,0785 
DATA 9518,0F,0F,1F,8F,0F,0F,0F,0F,0F05 
DATA 9S20 1 1F,FF,FF,FF,FF 1 FF,FF,FF P 2555 
DATA 9528,FF,FF,FF,FF,FF,8F 1 0F 1 0F,5585 
DATA 9530,0F,0F,1F,8F,0F,0F,0F,0F,0F05 
DATA gSae.lF.SF.OF.OF.OF.OF.lF.SF.aDAS 
DATA 9540 I 0F 1 0F,0F,0F,1F,8F,0F,FF,0775 
DATA 9548,FF,0F,1F,8F,1F,FF,FF,8F,7525 


1339 ] 
1234 ] 

1679 ] 
1350 ] 
2513 ] 
1946 ] 
1089 ] 
2208 ] 
659 ] 
2316 ] 
1155] 
1973] 
844 ] 
2081 ] 
1844] 
1945 ] 
1500] 
1717] 
1622 ] 

1680 ) 
2365 ] 
2023 ] 
2281 ] 
840 ] 
1540 ] 
2174] 
1343 ] 
1 763 ] 
1644] 
2100 ] 
1192] 
1668 ] 
1 732 ] 
1943 ] 
1332 ] 
2857 ] 
1539 ] 
1857 ] 
2190] 
1721] 
2358 ] 
1118] 
3200] 
2016 ] 
1202 ] 
1220 ] 
834 ] 
1513] 
1 784 ] 
1335 ] 
1744 ] 
2087] 
2214 ] 
1150 ] 
2075] 
1889 ] 
2234] 
1103] 
1956] 
1337] 
1336] 
1608 ] 
2162 ] 
2158] 
1810] 
1509 ] 
1346 ] 
2161 ] 
1523] 
2456] 
2041 ] 
1861 ] 
2961 ] 
1067] 
2769] 
1540] 
2226] 
2521 ] 
2998] 
1574] 
1070] 
2558 ] 
1562 ] 
1911 ] 
1806 ] 


Listing Popcorn 


68 PC 1 ’88 










Programm—i 


274 DATA 

275 DATA 

276 DATA 

277 DATA 

278 DATA 

279 DATA 

200 DATA 

201 DATA 

202 OATA 
283 OATA 
204 DATA 

285 DATA 

286 DATA 

287 DATA 

288 DATA 
209 DATA 

290 DATA 

291 DATA 

292 DATA 

293 DATA 

294 DATA 

295 DATA 

296 DATA 

297 DATA 

298 DATA 

299 DATA 

300 DATA 

301 DATA 

302 DATA 

303 DATA 

304 DATA 

305 DATA 

306 DATA 

307 DATA 

308 DATA 

309 DATA 

310 DATA 

311 DATA 

312 DATA 

313 DATA 

314 DATA 

315 DATA 

316 DATA 

317 DATA 

318 DATA 

319 DATA 

320 DATA 

321 DATA 

322 DATA 

323 DATA 

324 DATA 

325 DATA 

326 DATA 

327 DATA 
320 DATA 

329 DATA 

330 DATA 

331 DATA 

332 DATA 

333 DATA 

334 DATA 

335 DATA 

336 DATA 

337 OATA 

338 DATA 

339 DATA 

340 DATA 

341 DATA 

342 DATA 

343 DATA 

344 DATA 

345 DATA 

346 DATA 

347 DATA 

348 OATA 

349 DATA 

350 DATA 

351 DATA 

352 DATA 

353 DATA 

354 DATA 

355 DATA 

356 DATA 

357 DATA 

358 DATA 


Listing Popcorn 


9550 

1F 

8F 

3F 

CF 

7F 

CF 

1F 

8F 

2725 

[1556] 

9558 

3F 

8F 

3F 

CF 

1F 

8F 

3F 

OF 

35E5 

[1781] 

9560 

3F 

CF 

1F 

8 F 

OF 

OF 

7 F 

CF 

2725 

[2332] 

9568 

1F 

8 F 

OF 

FF 

FF 

8 F 

1F 

8F 

2725 

[ 1280] 

9570, 

1F 

FF 

FF 

OF 

1F 

8 F 

3F 

EF 

2 DO 5 

[1709] 

9578, 

OF 

OF 

1F 

8F 

3F 

CF 

OF 

OF 

0D85 

[1483] 

9580 

1F 

8F 

3F 

CF 

OF 

CF 

1F 

8 F 

24A5 

[1720] 

9588 

3F 

CF 

1F 

CF 

1F 

8F 

3 F 

FF 

2115 

[968] 

9590 

FF 

CF 

1F 

8 F 

3F 

FF 

FF 

CF 

4465 

[2102] 

9598, 

1F 

8F 

OF 

OF 

OF 

OF 

1F 

8F 

2DA5 

[1283] 

9 5 AO 

OF 

OF 

OF 

OF 

1F 

8F 

OF 

OF 

0785 

[2479] 

95A8 

OF 

OF 

1F 

8F 

OF 

OF 

OF 

OF 

OF05 

[1570] 

9 5B0 

1F 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

2555 

[2650] 

95B8 

FF 

FF 

FF 

FF 

FF 

8F 

OF 

OF 

5585 

[1740] 

95C0 

OF 

OF 

1F 

8F 

OF 

OF 

OF 

OF 

0F05 

[2339] 

9 5C8 

1F 

8F 

OF 

OF 

OF 

OF 

1F 

8F 

2DA5 

[603] 

95D0 

OF 

OF 

OF 

OF 

1F 

8F 

OF 

FF 

0775 

[2535] 

95D8 

FF 

OF 

1F 

8F 

1F 

FF 

FF 

8 F 

7525 

[2588 ] 

95E0, 

1F 

8F 

3F 

CF 

7 F 

CF 

1F 

8F 

2725 

[2487] 

95E8, 

3F 

8F 

3F 

CF 

1F 

8F 

3F 

OF 

35E5 

[449 ] 

95F0 , 

3F 

CF 

1F 

8F 

OF 

OF 

7F 

CF 

2725 

[1785] 

9 5FB , 

1F 

8F 

OF 

3F 

FF 

8 F 

1F 

8 F 

2B25 

[1793] 

9600, 

OF 

3F 

FF 

8F 

1F 

BF 

OF 

OF 

1D85 

[2133] 

9608, 

7F 

CF 

1F 

8F 

3F 

OF 

3F 

CF 

0625 

[1854] 

9610, 

1F 

8F 

3F 

8F 

3F 

CF 

1F 

8F 

2125 

[1750] 

9618, 

3F 

CF 

7F 

CF 

1F 

8F 

1F 

FF 

2D55 

[510] 

9620, 

FF 

8F 

1F 

8F 

OF 

FF 

FF 

OF 

5525 

[2203] 

9628 

1F 

8F 

OF 

OF 

OF 

OF 

1F 

8F 

20A5 

[ 2287 ] 

9630, 

OF 

OF 

OF 

OF 

1F 

8 F 

OF 

OF 

0785 

[1017] 

9638, 

OF 

OF 

1F 

8F 

OF 

OF 

OF 

OF 

0F05 

[1543] 

9640, 

1F 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

2555 

[1165] 

9648 

FF 

FF 

FF 

FF 

FF 

8F 

OF 

OF 

5585 

t1411] 

9650, 

OF 

OF 

1F 

8F 

OF 

OF 

OF 

OF 

0F05 

[1309] 

9658 

1F 

BF 

OF 

OF 

OF 

OF 

1F 

8F 

2DA5 

[2144] 

9660 

OF 

OF, 

OF 

OF 

1F 

0F 

OF 

1F 

0795 

[2151] 

9668 

EF 

OF 

1F 

8F 

OF 

3F 

EF 

OF 

7E05 

[1426] 

9670 

1F 

8F 

OF 

7 F 

EF 

OF 

1F 

BF 

2DA5 

[1537] 

9676 

OF 

FF 

EF 

OF 

1F 

8F 

1F 

DF 

2775 

[ 557 ] 

9680, 

EF 

OF 

1F 

8F 

3F 

9 F 

EF 

OF 

7D05 

[ 1242] 

9688 

1F 

BF 

7F 

1F 

EF 

OF 

1F 

8F 

25A5 

[ 1982 ] 

9690 

6F 

1F 

EF 

OF 

1F 

8F 

7 F 

FF 

2F9 5 

[2741] 

9698 

FF 

EF 

1F 

8F 

7 F 

FF 

FF 

EF 

4E45 

[2501 ] 

96A0 

1F 

8F 

OF 

1F 

EF 

OF 

1F 

8F 

2BA5 

[2799] 

96A8 

OF 

1F 

EF 

OF 

1F 

8 F 

OF 

7 F 

1FF5 

[1818 ] 

9 6B0 

FF 

SF 

1F 

8F 

OF 

7F 

FF 

0F 

5 7A5 

[2378] 

9 6B8 

1F 

SF 

OF 

OF 

OF 

OF, 

1F 

8 F 

2DA5 

[1735] 

96C0 

OF 

OF 

OF 

OF 

1F 

8F 

OF 

OF 

0785 

[2193] 

9 6C8 

OF 

OF 

1F 

BF 

OF 

OF 

OF 

OF 

0F05 

t1620] 

9 6 DO 

1F 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

2555 

[2486] 

9 6D8 , 

FF 

FF 

FF 

FF 

FF 

SF, 

OF 

OF 

5585 

[1890] 

96E0, 

OF 

OF 

1F 

8 F 

OF 

OF 

OF 

OF 

0F05 

(1987] 

9 6E8 

1F 

SF 

OF 

OF 

OF 

OF 

1F 

8F 

2DA5 

[1339] 

9 6F0 , 

OF 

OF 

OF 

OF 

1F 

8F 

3F 

FF 

0715 

[2024 ] 

96F8 

FF 

CF 

1F 

BF 

3 F 

FF 

FF 

CF 

4465 

[1686] 

9700 

1F 

8F 

3F 

CF 

1F 

CF, 

1F 

8F 

2425 

[1748] 

9700 

3F 

CF 

OF 

CF 

1F 

SF 

3F 

CF 

2325 

[1522] 

9710 

OF 

OF 

1F 

BF 

3F 

EF 

OF 

OF 

0005 

[2638] 

9718 

1F 

SF 

1F 

FF 

FF 

OF 

1F 

8 F 

2 725 

[2527] 

9720, 

OF 

FF 

FF 

8 F 

1F 

8F 

OF 

OF 

2 DB 5 

[2447] 

9728, 

7 F 

CF 

1F. 

8 F 

3F 

OF 

3F 

CF 

0625 

[1764] 

9730 , 

1F 

SF 

3F 

0 F 

3F 

CF 

1F 

8F 

2125 

[1413] 

9738 , 

3F 

CF 

7F, 

CF 

1F 

8F 

1F 

FF 

2D55 

[2022 ] 

9740 , 

FF 

SF , 

1F 

8 F 

OF 

FF 

FF 

OF 

5525 

[1446] 

9748, 

1F 

SF , 

OF 

OF 

OF 

OF 

1F 

8 F 

2DA5 

[2723] 

9750, 

OF 

OF , 

OF 

OF 

1F. 

BF 

OF 

OF, 

0785 

[2072] 

9758 , 

OF 

OF , 

1F 

BF 

OF, 

OF 

OF 

OF 

0F05 

[ 1698 ] 

9760 , 

1F 

FF , 

FF 

FF 

FF 

FF 

FF 

FF 

2555 

[1574] 

9768, 

FF 

FF , 

FF 

FF 

FF 

SF 

OF 

OF 

5585 

[1070] 

9770, 

OF 

OF , 

1F 

SF 

OF 

OF 

OF 

OF 

0 F05 

[2558] 

9778, 

1F 

8F, 

OF 

OF, 

OF, 

OF 

1F 

SF 

2 DA5 

[1562] 

9780, 

OF 

OF, 

OF, 

OF, 

1F , 

SF, 

OF , 

FF 

0775 

[1084] 

9 7 88, 

FF 

OF , 

1F , 

SF , 

1F , 

FF , 

FF , 

8F , 

7525 

[ 1592 ] 

9790, 

1F 

SF , 

3F , 

EF , 

3F , 

CF , 

1F , 

SF , 

2725 

[1908) 

9798, 

3F 

CF , 

1F . 

CF , 

1F , 

SF , 

3F , 

CF , 

2125 

[2323] 

9 7A0 , 

OF 

CF , 

1F , 

SF , 

3F , 

CF , 

OF , 

OF , 

3085 

[2085 ] 

97A8 , 
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SF , 

3F , 

FF , 

FF , 

OF , 

1F , 

8F , 

2325 

[2030] 

9 7B0 , 

3F , 

FF , 

FF , 

BF , 

1F , 

0F , 

3F , 

CF , 

3525 

[ 1559 ] 

9 7B8, 

7F , 

CF , 

1F , 

8F , 

3F , 

CF , 

3F . 

CF , 

0525 

[2423 ] 

97C0, 

1 F , 

SF , 

3F , 

CF , 

3F , 

CF , 

1F , 

8F , 

2525 

[ 1676 ] 

9 7C8 , 

3F , 

EF , 

7 F , 

CF , 

1F , 

8 F , 

1F , 

FF , 

2555 

[2529] 

9 700 , 

PF • 

SF , 

1F , 

SF , 

OF , 

FF, 

FF , 

OF , 

5525 

(2320 ] 

97D0 , 

1F , 

SF , 

OF , 

OF , 

OF , 

OF , 

1F . 

8F , 

2DA5 

[2303] 

97EO, 

OF , 

OF , 

OF , 

OF , 

1F , 

8F , 

OF , 

OF , 

0785 

[ 1898 ] 

9 7E8 , 

OF , 

OF . 

1F , 

8F , 

OF , 

OF , 

OF , 

OF , 

0F05 

[ 1703 ] 

9 7F0 , 

1F , 

FF , 

FF . 

FF , 

FF , 

FF , 

FF , 

FF , 

2555 

( 2650 J 
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440 

OATA 

44 1 

DATA 

442 
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DATA 


97F8,FF,FF,FF,FF,FF,6F,0F,0F,5585 
9800,0F,0F,1F,8F,OF,OF.OF,OF,0F05 
9808, lF^F.OF.OF.OFjOF, 1F.8F, 2 DA 5 
9810,0F,0F,0F ( 0F,1F,8F,3F,FF,0715 
9818,FF,CF,1F,8F,3F,FF,FF,CF,4465 
982O,1F,8F,3F,0F,3F,CF,1F,8F,2125 
9828,3F,OF,3F,CF,1F,8F,0F,0F,1585 
9830,3F,CF,1F,8F,0F,0F,7F,CF,2725 
9838,1F,BF,0F,0F,FF,BF,1F,8F,2825 
9840,0F,1F,FF,0F,1F,8F,0F,3F,1DB5 
9848,EF,OF,1F,8F,OF,3F,CF,OF,7E45 
9B50,1F,8F,OF,3F,CF,OF,1F,8F,28A5 
9858,0F,3F,CF,QF,1F,8F,0F,3F,13B5 
9860,CF,OF,1F,8F,OF,3F,CF,OF,6E45 
9868,1F,8F.0F,OF,OF,0F,1F,8F,2DA5 
9870.0F,OF,OF,OF,1F,8F,OF,0F,0785 
9878,OF,OF 1 1F,8F,OF 1 OF,OF 1 OF,OF05 
9880,1F,FF,FF,FF,FF,FF,FF,0F,25A5 
9B88.0F,OF,OF,OF,0F,7F.FF,FF,05D5 
9890,FF,FF,EF,7F,FF,FF,FF,FF,5F55 
9B9B,EF,7F,FF,FF,FF,FF,EF,7F,7DF5 
98A0,FF,FF,FF,FF,EF,7F,FF,CF,57E5 
98A8.3F,FF,EF.7F,FF,8F,3F,FF,3F15 
98B0,EF,7F,FF,0F,3F,FF,EF,7F,74F5 
gSBS.FF.OF.SF.FF.EF,7F,FF,CF,73E5 
98C0.SF.FF.EF.TF.FF.CF.SF.FF.SEIS 
98C8,EF,7F,FF,CF,3F,FF,EF,7F,78F5 
9BD0,FF,CF,3F.FF,EF,7F,FF,CF,43E5 
98D8,3F,FF,EF,7F,FF,CF,3F,FF,3E15 
98E0.EF,7F,FF,CF,3F.FF,EF,7F,78F5 
98E8,FF,CF,3F,FF,EF,7F,CF,0F,4345 
98F0,0F,3F,EF,7F,CF,0F,0F,3F,1435 
98F8,EF,7F,FF,FF,FF,FF,EF,7F,7DF5 
9900,FF,FF,FF,FF,EF,7F,FF,FF,5 705 
9908,FF,FF,EF,7F.FF,FF,FF,FF,5F55 
9910,EF.OF.OF.OF.OF.OF.OF.OF,7505 
9918,0F,0F,0F,0F,0F,7F.FF,FF,05D5 
9920,FF,FF,EF,7F,FF,FF.FF,FF,5F55 
9928,EF,7F,FF,FF,FF,FF,EF,7F,7DF5 
9930,FF,FF,FF,FF,EF,7F,FF,0F,5725 
9938,OF,FF,EF,7F,EF,OF,OF,7F,2575 
9940,EF,7F,CF,3F 1 8F,3F,EF,7F,7775 
9948,CF,7F,CF,3F,EF,7F,CF,FF,65B5 
9950,CF,3F,EF,7F,FF,FF,8F,3F,7775 
995B,EF,7F.FF,0F,0F,7F,EF,7F,7775 
9960,EF,0F,0F,FF,EF,7F,CF,1F,7055 
9968,FF,FF,EF,7F,CF,3F,FF,FF,50D5 
9970,EF,7F.CF,3F,FF,3F,EF,7F,74F5 
9978,CF,3F,EF,3F,EF,7F,CF,0F,7145 
9980,0F,3F,EF,7F,CF,0F,0F,3F,1435 
9988,EF,7F,FF,FF,FF,FF,EF,7F,7DF5 
9990,FF,FF,FF,FF,EF,7F,FF,FF.57D5 
9998,FF,FF,EF,7F,FF,FF,FF,FF,5F55 
99A0,EF,0F,0F,0F,0F,0F,0F,0F,7505 
99A8,0F,0F,0F,0F,0F,7F,FF,FF,05D5 
99B0,FF,FF,EF,7F,FF,FF,FF,FF,5F55 
99B8.EF,7F,FF,FF I FF,FF,EF,7F,7DF5 
99C0,FF,FF,FF,FF,EF,7F,FF,0F,5725 
99C8,OF,FF,EF,7F,EF,OF,OF,7F,2575 
99DO,EF,7F,CF,3F,8F,3F,EF,7F,7775 
99D8.CF,7F,CF,3F,EF,7F,CF,FF,65B5 
99E0.CF,3F,EF,7F,FF,FF,8F,3F,7775 
99E8.EF,7F,FF,CF,0F,7F.EF,7F,7B75 
99F0,FF,CF,0F,7F.EF,7F,FF,FF,4DD5 
99F8,8F,3F,EF,7F,CF,FF,CF,3F,5675 
9AOO,EF,7F,CF,7F,CF,3F,EF,7F,7175 
9AO8,CF,3F,8F,3F,EF,7F.EF,0F,7D05 
9A10,0F,7F,EF,7F,FF,0F,0F,FF,0575 
9A18,EF,7F,FF,FF,FF,FF,EF,7F,7DF5 
9A20,FF,FF,FF,FF,EF.7F,FF,FF,57D5 
9A28,FF,FF,EF,7F,FF,FF,FF,FF,5F55 
9A30,EF,OF,OF,OF,OF,OF,OF,OF,7505 
9A38,OF,0F,OF,0F,OF,7F.FF,FF.05D5 
9A40,FF,FF,EF,7F,FF,FF,FF,FF,5F55 
9A48.EF,7F,FF,FF,FF.FF,EF,7F.7DF5 
9A50,FF,FF,FF,FF,EF.7F,FF,EF,57C5 
9A58,1F,FF,EF, 7F.FF.CF,1F.FF.2E55 
9A60.EF,7F.FF.8F,1F.FF.EF,7F,7DF5 
9A68,FF,0F,1F,FF,EF,7F,EF,2F,7725 
9A70,1F,FF,EF,7F.CF.6F,1F.FF.2D55 
9A78.EF,7F,8F,EF,1F,FF,EF,7F,75F5 
9A80,9F,EF.1F,FF.EF,7F,8F.OF.7FC5 
9A88.0F,1F,E F, 7F,8F,OF,OF,1F, 1E15 
9A90.EF,7F,FF,EF,1F.FF.EF,7F.7BF5 
9A98,FF,EF, 1F , F F,E F , 7F,FF,8F,4FA5 


11740] 
[1040] 
[2147] 
[1831 ] 
[1662] 
[2919] 
[1341] 
[1736] 
[1377] 
[1669] 
[2065] 
[2727] 
[ 2200 ] 
[2527] 
[2287] 
t1017] 
[1543] 
[2332] 
[1745] 
[ 1993] 
[1029] 
[2247] 
[1956] 
[ 2122 ] 
[2262] 
[ 112 ] 
[2186] 
[2167] 
[2191] 
[2814] 
[903 ] 

[ 1695] 
[1401] 
[2163] 
[1711 ] 
[2018] 
[1911] 
[1799] 
[2068] 
[2319] 
[ 1665 ] 
[1495] 
[1821] 
[1820] 
[1724] 
[527] 

[1542] 
[1176] 
[1675] 
[ 1522] 
[1261] 
[1464] 
[ 1506] 
[689] 

[ 1880] 
[1734] 
[2761] 
[2663] 
[ 1899 ] 
[1898] 
[2582 ] 
[2293] 
[1768] 
[2720] 
[ 1205 ] 
[2711 ] 
[2444 ] 
[ 1678] 
[2386] 
[2357] 
[2257] 
[2323] 

[1739] 

[1666] 
[2349] 
[2185] 

[1902] 
[2341] 

[ 2967] 
[2163] 
[2247] 
[3453] 
[2199] 
{1681] 
[2683] 
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492 
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OATA 
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49 7 
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OATA 
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DATA 

504 

DATA 
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DATA 

506 

DATA 

507 

DATA 

508 

OATA 

509 

DATA 

510 

DATA 

511 

DATA 
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DATA 
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DATA 
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519 

DATA 
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ad r=< 

523 

READ 
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p r = 0 

525 

FOR 

526 

READ 
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POKE 

528 

pr-p 


,7F,EF 
,7F,FF 
. FF , FF 
,FF.EF 
,OF,OF 
.OF.OF 
,FF.EF 
,7F,FF, 
,FF,FF, 
,3F,EF, 
,7F,CF, 
,3F,FF, 
,FF,EF, 
,7F,EF, 
,OF,OF, 
,3F,EF, 
,?F,CF, 
,3F,8F, 
,7F,EF, 
,7F,FF, 
,FF,FF, 
,FF,EF, 
,OF,OF, 
,OF.OF, 
.FF.EF, 
,7F.FF, 
,FF.FF, 
.FF.EF, 
.7F.CF, 
,3F,EF, 
.3F.EF, 
,7F.CF, 
.OF.OF, 
.3F.EF, 
,7F,CF, 
.1F.8F, 
,7F.EF, 
,7F,FF, 
,FF,FF, 
.FF.EF, 
.OF.OF, 
.OF.OF, 
.FF.EF, 
,7F,FF 
, FF , FF, 
,3F.EF 
,7F.CF 
, FF,CF 
,3F.EF 
.7F.FF 
,EF,OF 
.FF.EF, 
,7F.FF 
,CF,3F 
.FF.EF 
.7F,FF 
,FF.FF 
.FF.EF 
,OF.OF 
.FO.FO 
, 00,01 
. 80.00 
, 00,00 
, 00,01 
. 80,00 
, 00,00 
, 00,01 
, 80,00 
, 00,00 
. 00,01 
, 80,00 
, 00,00 
, 00,01 
,80,00 
, 00,00 
, 00,01 
,87,OF 


7F , FF 
FF , FF 
FF , EF 
7F , FF 
OF , OF 
OF , OF 
7F , FF 
FF , FF 
FF . EF 
7F , CF 
3F , EF 
3F , EF 
7F , CF 
OF , OF 
7F , EF 
7F , CF 
7 F , CF 
3F , EF 
7F , FF 
FF , FF 
FF , EF 
7F , FF 
OF , OF 
OF.OF 
7F.FF 
FF , FF 
FF.EF 
7F , EF 
1F , CF 
3F , EF 
7F , CF 
OF.OF 
7F , EF 
7F.CF 
3F , CF 
3F , EF 
7F , FF 
FF. FF 
FF.EF 
7F , FF 
OF.OF 
OF.OF 
7F, FF 
FF, FF 
FF , EF 
7F.CF 
7F , CF 
3F , EF 
7F , FF 
FF , OF 
FF , EF 
7F , FF 
CF , 3F 
FF , EF 
7F , FF 
FF , FF 
FF , EF 
7F , FF 
OF.OF 
FO, El 
80,00 
00,00 
00,01 
80,00 
00,00 
00,01 
80,00 
00,00 
00,01 
80,00 
00,00 
00,01 
80,00 
00,00 
00,01 
80,00 
OF , OF 


.8F,OF, 
.FF.EF, 
,7F,FF, 
.FF,FF, 
,OF,OF , 
,7F,FF, 
,FF.FF, 
,FF.EF, 
.7F,CF, 
,OF,OF, 
,3F,EF, 
,7F,CF, 
,1F.FF, 
.FF.EF, 
, 7F,FF , 
.FF,CF, 
,3F,EF , 
. 7F,EF , 
,OF,OF, 
.FF.EF, 
,7F,FF, 
.FF,FF, 
.OF.OF, 
.7F,FF, 
,FF,FF, 
.FF.EF, 
,7F,FF, 
.OF.OF, 
,3F,EF, 
,7F.CF, 
.3F . FF, 
.FF.EF, 
,7F.CF, 
, 3F,CF, 
,3F,EF, 
.7F,EF, 
,OF,OF, 
.FF.EF, 
,7F,FF, 
,FF,FF, 
,OF.OF, 
,7F.FF, 
,FF,FF, 
.FF.EF, 
,7F,CF, 
,OF,OF, 
,3F,EF, 
,7F,FF, 
,FF,8F, 
,7F,EF, 
.7F,FF, 
,CF,3F, 
.FF.EF, 
,7F,FF, 
,CF,3F, 
,FF,EF, 
,7F,FF, 
,FF,FF, 
,OF.OF, 
, 80 , 00 , 
, 00 , 00 , 
, 00 , 01 , 
, 80 , 00 , 
, 00 , 00 , 
. 00 . 01 , 
, 80,00 
. 00,00 
. 00 , 01 , 
, 80 , 00 , 
. 00 , 00 , 
, 00,01 
,80,00, 
, 00 , 00 , 
, 00 , 01 , 
,80,00, 
, 00 , 00 , 
.OF.OF, 


7F,0 7F5 
7F,7 DF5 
FF,5 7D5 
FF,5F55 
OF,7505 
FF,0505 
FF,5F55 
7F,70F5 
OF,5 745 
3F,1435 
7F,7475 
3F,7375 
FF,5055 
7F,7775 
FF,70D5 
3F , 5675 
7F,7175 
OF,7005 
FF,05 76 
7F,7DF 5 
FF,5 7D5 
FF,5F55 
OF,7505 
FF.05D5 
FF,5F55 
7F,70F5 
OF,5725 
7 F,2575 
7F,7775 
3F,7175 
FF,6DD5 
7 F, 7375 
3F,6575 
3F,5575 
7F,7575 
OF,7505 
FF,05 75 
7 F,7DF 5 
FF,5705 
FF,5F55 
OF,7505 
FF,0505 
FF,5F55 
7 F,7DF5 
OF ,5745 
3F,1435 
7F,7175 
FF,4505 
3F,7775 
7F,7875 
CF,4DE5 
FF ,2E15 
7F,78F5 
CF,43E5 
FF,3E15 
7F,70F 5 
FF,5705 
FF.5F55 
FO,75FA 
00,5008 
00,0820 
80,2002 
00,0208 
00,0820 
80,2002 
00,0208 
00,0820 
80,2002 
00,0208 
00,0820 
80,2002 
00,0208 
00,0820 
80,2002 
00,0208 
00,0820 
00,200A 


I1e=104:MEMORY adr 
5="* ENDE*"THEN 534 


-1 


.("4"+a$) 

I r = ad r+1 

>65535 THEN pr=pr-65535 


[ 2621 ] 
[3455] 
[3036] 
[2505 ] 
[2060] 
[11BO ] 
£2663] 
[2164] 
[2418] 
[2192] 
[ 1 732 ] 
[2630] 
[ 1997] 
[20573 
[2765] 
[1961] 
[2894] 
[934] 

[ 1866] 
[ 1632 ] 
{ 1020 ] 
t1713] 
£ 1137] 
[1968] 
[1270] 
[2139] 
[1836] 
[2477] 
[1814] 
[1279] 
[1452] 
[1828] 
[1997] 
[1077] 
[1548] 
[ 1 795 ] 
[2142] 
[2816] 
[2866] 
[2528] 
[2045] 
[1883] 
[2805] 
[2107] 
[2154] 
[2835] 
[1124] 
[1437] 
[2341] 
[2092] 
[2543] 
[2158] 
[3052 ] 
[1912 ] 
[ 1085 ] 
[1908 ] 
[2713] 
[1891] 
[2164] 
[1590] 
[1612] 
[ 1797] 
[ 1989 ] 
[1508] 
[1319] 
[1614] 
[1786] 
[1666 ] 
[1272] 
[2080] 
[ 1827] 
[1471] 
[1357] 
[ 1099 ] 
[ 1001 ] 
[850] 
[2199] 
[502] 
[2008] 
[1162] 
[117] 
[462] 
[883] 
[717] 
[2485] 


Listing Popcorn 


529 

pr=UNT(pr)XOR a:If pr<0 THEN pr=pr+655 

[ 1890] 

36 



530 

NEXT i 

[ 375 ] 

531 

READ pr$:p r 2 = V A L (" 4 " + p r $):IF pr2<0 THE 

[2610] 

N pr2=pr2+65536 


532 

IF pr<>pr2 THEN PRINT"Pruefsummenfeh1e 

[3615] 

r in Zei1e";zei1e:STOP 


533 

zeile=ze11e+l:GOTO 523 

[ 829 ] 

534 

SAVE"P0PC0RN2.BIN",b,49000,4D08 

[1831 ] 

535 

PRINT d$:END 

[ 346] 




100 

• **************** 

[ 528] 

101 

'* POPCORN .UMW * 

[419] 

102 

-**************** 

[ 528] 

103 


[117] 

104 

MEMORY 41FFF 

[ 710] 

105 

LOAD"POPCORN1.BIN”,42000 

C 1877] 

106 

LOAD"P0PC0RN2.BIN",43000 

[2338] 

107 

SAVE"POPCORN.",b,42000,41D08,42000 

(2174] 




100 

• *************** 

[ 345 ] 

101 

•* POPCORN.CPM * 

[658] 

102 

-*************** 

[345] 

103 


[117] 

104 

OATA 1 DDO,06,11, IE,00,16,00,OE,41,0460 

[2047] 

105 

DATA 1DD8,21,00,IE,D5,C5,E5,DF,F4,1AE6 

( 18 89] 

106 

OATA 1DEO,1D,E1,11,00,02,19,CI,D1,35C7 

[ 1960] 

107 

DATA 1 DES,0C,3E,4A,89,20,03,OE,41,OAOl 

[1797] 

108 

DATA 1DF0,14,10,ES,C9,4E,C6,07,00,1EF6 

[2050] 

109 

DATA 1DF8,00,00,00,00,00,00,00,00,0000 

[1498] 

110 

DATA 1E00,06,10,IE,00,16,00,OE,42,042E 

[2389] 

111 

DATA 1E08,21,00,20,D5,C5,E5,DF,2B,1DF9 

[2030] 

112 

DATA 1E10,01,El,11,00,02,19,CI,Dl,3BC7 

[2050] 

113 

DATA lElS.OC.SE.AA.BS.aO.OS.OE.Al.OAOl 

[ 1943] 

114 

DATA 1E20.14,10,E8,21,00,20.0E,FF,1173 

[2112] 

115 

DATA 1E28,CD,16,BD,66,C6,07,00,00,74EC 

[2221] 

116 

DATA *ENDE* 

t 502 ] 

117 

adr = 41DD0:zei 1 e= 104-.MEMORY adr-1 

[ 1585 ] 

118 

READ d$:IF d$=“*ENDE*"THEN 129 

[1115] 

119 

pr=0 

[117] 

120 

FOR 1=1 TO 8 

[462] 

121 

READ a$:a=VAL("4"+a$) 

[883] 

122 

POKE adr,a:adr=adr+l 

[717] 

123 

pr=pr*2:IF pr>65535 THEN pr=pr-65535 

[2485] 

124 

pr=UNT(pr)XOR a:IF pr<0 THEN pr=pr+655 

t1890] 

36 



125 

NEXT i 

[ 375 ] 

126 

READ pr$:pr2=VAL("4"+pr$):IF pr2<0 THE 

[2610] 

N pr2=pr2+65536 


127 

IF pr<>pr2 THEN PRINT"Pruefsummenfeh 1e 

[3615] 

r in Zei1ezei1e:STOP 


128 

ze11e=ze11e+l:GOTO 118 

[1022] 

129 

MODE 1 

[506] 

130 

PRINT"Bitte legen Sie die Diskette mit 

[4241] 

131 

PRINT"dem Programm POPCORN in Laufwerk 

[2184] 

132 

CALL 4BB06 

[393] 

133 

LOAD"pO pcOrn”,42000 

[ 1972 ] 

134 

MODE 1 

[506] 

135 

PRINT"B1tte legen Sie nun eine System- 

[4977] 

oder" 


136 

PRINT“Vendordiskette in Laufwerk A" 

[3708] 

137 

CALL 4BB06 

[393] 

138 

CALL 41DDO 

[ 709 ] 

Listing Popcorn 
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I Tips & Tricks 




n für Directories 


Ein Diskettenkatalog auf dem Bildschirm gibt schon eine 
Menge Informationen. Aber was fehlt, ist die Möglich¬ 
keit, jeder Diskette einen Namen zu geben. Ob das geht? 

Na klar geht das! Das hier vorliegende Programm liest nach 
einem Tastendruck das komplette Inhaltsverzeichnis von ei¬ 
ner gewünschten Diskette, stellt das Format fest und druckt 
dieses auf dem Bildschirm aus. Anschließend hat man die 
Möglichkeit der Diskette einen siebenstelligen Namen zu 
geben. 

Über dem Namen steht normalerweise der Text “eeeeeeee“. 
Das bedeutet, daß die nun vorgenommene Eintragung im In¬ 
haltsverzeichnis neu ist. (Der Text “e“ ergibt sich durch Lö¬ 
schen des siebten Bits von &E5; mit diesem Code wird die 
Diskette formatiert.) Falls Sie aber der Diskette schon einmal 
einen Namen gegeben haben, erscheint der alte Text über der 
Input-Zeile (es kann nur ein Label pro Diskettenseite verge¬ 
ben werden). Bei der Eingabe ist es übrigens völlig gleich¬ 
gültig ob Sie Zeichen verwenden, die das Diskettensystem 
erlaubt oder nicht. Sie können auch Kommas, Leerstellen 
und ähnliche Zeichen verwenden. 


Wieso aber nur sieben Zeichen? Damit die Eintragung nach 
dem Sortieren auch am Beginn der Liste erscheint, wird an 
den Anfang des Labels eine Leerstelle gesetzt! Und die drei 


für 464-664-6128 




m 

1 



kJ'a 

1000 



[117] 

1010 

’ amsdos cpc disc labler 


[ 1955] 

1020 

' (c) 11.08.1987 by er 


[1480] 

1030 

' and pc international 


[1055] 

1040 

• 


[117] 

1050 

INK 0,0;INK 1,20:BORDER 0 


[ 614] 

1060 

PAPER 0:PEN l:MODE 2 


[1716] 

1070 



[174] 

1080 

IF HIMEM038143 THEN GOSUB 

1170 

[1193] 

1090 



[174] 

1100 

CLS:PRINT"Diskette einlegen 

und Taste 

[4123] 

druecken ! 



1110 

CALL 4BB06:CLS 


[610] 

1120 

CALL 49500 


[ 680] 

1130 

PRINT:PRINT 


[ 743] 

1140 

PRINT"B1tte eine Taste drue 

cken ! 

[ 3859 ] 

1150 

CALL 4BB06:GOTO 1100 


[1151] 

1160 



[ 174] 

1170 

OPENOUT "d" :MEMORY 494FF:CLOSEOUT 

[ 2391 ] 

1180 

d1=1320 


[ 478] 

1190 

FOR ad r=49500 TO 4962B STEP 

8 

[ 718] 

1200 

c = 0 


[ 348] 

1210 

FOR i=adr TO adr+7 


[ 1011] 

1220 

READ b$ 


[315] 

1230 

byte=VAL(”4"+b$) 


[465] 

1240 

c=c XOR byte 


[ 923] 

1250 

POKE i,byte 


[ 294] 

1260 

NEXT i 


[375 ] 

1270 

READ cs 


[534] 

1280 

IF csOc THEN PRINT" DAT A 

error in 1 

[ 1227] 

ine"d1:END 



1290 

dl=dl+10 


[ 631] 

1300 

NEXT adr 


[ 547] 

1310 

RETURN 


[ 555 ] 


Buchstaben der Extension werden dazu verwendet, die For¬ 
matkennung mit anzugeben: 

DAT steht für AMSDOS Dataformat 
CPM bedeutet CP/M Systemformat 

Damit hat ein Disketten-Label also folgenden Aufbau: 
Label: “ xxxxxxx.fmt“ 

Wobei “xxxxxxx“ für eine beliebige Zeichenfolge steht, die 
den Namen der Diskette darstellt und die Extension “.fmt“ 
das Format dieser Diskette enthält. 

Beispiel: “ Insight.DAT“ 

Eines sollte man jedoch unbedingt beachten: Enthält die Dis¬ 
kette schon die maximal möglichen 64 Einträge, so würde 
der Eintrag eines Programmes gelöscht: Dann steht über der 
Input-Zeile der Name dieses Programmes. In diesem Fall 
muß die “Notbremse“ gezogen werden: Entweder Sie setzen 
den Computer einfach zurück (CTRL + SHIFT + ESC) oder 
Sie setzen den Schreibschutz der Diskette. Das kommt zum 
Glück äußerst selten vor. Zudem ist es günstiger gleich nach 
dem Formatieren die Namens-Kennung zu vergeben, damit 
die Eintragung auch bei dem RSX- und CP/M-Befehl DIR 
(der ja bekanntlich eine unsortierte Liste in der Reihenfolge 
des Ablegens erzeugt) am Anfang erscheint. 

Ansonsten gute Ideen bei der “Taufe “ Ihrer Disketten. 

(E. Röscheisen/JB) 


1320 DATA CD,9F,95,21,00,96,36,84,402 [1223] 

1330 DATA CD,E8,95,21,El,99,E5,06,&0A [1470] 

1340 DATA 08,7E.23.E6,7F.CD,5A.BB.&E0 [781] 

1350 DATA 10,F7,3E,2E,CD,5A,BB,AF,&74 [1518] 

1360 DATA 32,£0,99,06,08,El,E5.36.&74 [1335] 

1370 OATA 20,23,10,FB,06,14,36,00,&CC [899] 

1380 DATA 23,10,FB,CD,78,BB,26,02,&E2 [1419] 

1390 DATA 2C,CD,75,BB,El,23,06,07,&EC [1906] 

1400 DATA 18,16,3E,07,B8,28,11,3C,&BA [1604] 

1410 DATA 04,2B,CD,5A,BB,3E,20,77,&6A [2057] 

1420 DATA CD.5A.BB,3E,08,CD,5A,BB,436 [1348] 

1430 DATA F5,CD,8A,BB,Fl,CD,06,BB,488 [2044] 

1440 DATA F5,CD,8D,BB,Fl,FE,FC,CB,&35 [1584] 

1450 DATA FE,7F,28,D6,FE,20,38,07,49 E [ 1003] 

1460 DATA 77,23,CD,5A.BB,10,El,11,498 [2083] 

1470 DATA E9,99,3A,04,96,FE,44,28,44A [2015] 

1480 DATA 09,FE,C4,28,0A,21,28,96,48E [909] 

1490 DATA 18,08,21,22,96,18,03,21,4BF [2040] 

1500 DATA 25,96,01,03,00,ED,BO,21,&CD [1567] 

1510 DATA 00,96,36,85,CD,E8,95,11,484 [1516] 

1520 DATA 00,98,CD,9B,BC,CD,78,BB,47C [875] 

1530 DATA 2D,2D,26,15,CD,75,BB,11,421 [1094] 

1540 DATA 9F,01,2A,7D,BE,19,7E,21,431 [526] 

1550 DATA 04,96,C6,03,77,23,FE,44,4B9 [1389] 

1560 DATA 28,OB,FE.C4,28,OE,36,01,408 [1564] 

1570 DATA 21,06,96,18,OC,36,02,21,4B0 [1823] 

1580 DATA OA,96,18,05,36,00,21,11,487 [1415] 

1590 DATA 96,CD,DF,95,21,17,96,7E.4CF [1412] 

1600 DATA B7,C8,CD,5A,BB,23,18,F7.49F [1121] 

1610 DATA CD,04,BC,22,01,96,79,32,458 [1390] 

1620 DATA 03,96,ED,5B,04,96,4B,1E.4E4 [1082] 

1630 DATA 00,21,00,98,DF,01,96,C9,438 [1121] 

1640 DATA 00,00,00,00,00,00,49,42,40B [1085] 

1650 DATA 4D,00,53,79,73,74,65,6D,468 [1679] 

1660 DATA 00,44,61,74,65,6E,00,2D,477 [1367] 

1670 DATA 46,6F,72,6D,61,74,00,OA,424 [1805] 

1680 DATA OA,00,C3,50,4D,C4,41,54,405 [856] 

1690 DATA C9,42,4D,00,00,00,00,00,4C6 [1548] 

Listing Disketten-Labels 
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Tips & Tricks i 


Der Sprinter: 

CPC Monitor jetzt mit 60Hz Bildwiederholfrequenz 


Alle Schneider und Amstrad CPC arbeiten normalerwei¬ 
se mit einer Bildwiederholfrequenz von 50Hz, was auch 
der PAL-Norm entspricht. Allerdings werden die CPC’s, 
die in die USA gelangen, mit 60Hz betrieben (nach NTSC- 
Norm). Somit ist der CPC also grundsätzlich in der Lage, 
auch mit einer höheren Bildwiederholfrequenz als 50 Hz 
zu arbeiten. 

Hintergrund 

Ob ein CPC nun mit 60Hz oder mit 50Hz arbeitet, entschei¬ 
det in der Regel nicht der Benutzer, sondern eine Brücke 
(LK4) auf der Hauptplatine. Ist diese offen, so ist automa¬ 
tisch der 50Hz-Standard selektiert. Wird diese jedoch ge¬ 
schlossen, so arbeitet der CPC im 60Hz-Standard. Folglich 
brauchen wir nur die Brücke zu schließen, um auf 60Hz um¬ 
zuschalten. Doch dies hat entscheidene Nachteile, wie Ga¬ 
rantieverlust, etc., außerdem werden sich wahrscheinlich 
viele Computerbenutzer nicht Zutrauen, an ihrem Computer 
eine derartige Operation vorzunehmen, da hier auch Löten 
erforderlich ist und der Computer so u.U. stark beschädigt 
werden kann. Deswegen verfolgen wir diese Lösung hier 
nicht weiter. Aber keine “Angst“, Sie kommen trotzdem zu 
einem flimmerfreieren Bildschirm, denn es gibt auf Softwa¬ 
rebasis (!) eine weitaus elegantere Möglichkeit, die entschei¬ 
dene Vorteile hat: 

- kein Hardwareeingriff erforderlich 

- unverbindlich 

(d.h. der Rechner kann nach einem Reset wieder mit 50Hz 
arbeiten, ohne das auch nur etwas verändert wäre.); 

- flexibler 

Die Routine ist äußerst kurz. 

Diese Lösung erhalten Sie mit dem abschließend abgedruck¬ 
ten Programm. 


Arbeitsweise des Programmes 


Das Programm besteht im Wesentlichen , neben der inte¬ 
grierten Rechnererkennung (ob 464, 664 oder 6128), nur aus 
zwei CALL-Befehlen (allerdings in Maschinensprache). 
Diese bewirken, daß ein etwas abgeander&i System-Reset 
durchgeführt wird, bei dem der Video-Controller mit den 60- 
statt den 50Hz-Werten programmiert wird. Folglich vernich¬ 
tet sich das Programm selbst, so daß sich der Rechner nach 
dem Programmdurchlauf praktisch im Hinschaltzustand be¬ 
findet. 


Anwendung des Programmes 

Folgende Schritte sind zu absolvieren: 

1. Programm abtippen und speichern 

2. Programm starten 

3. Monitorbild justieren 

Das Programm muß unbedingt abgespeichert werden, bevor 


Sie es das erste Mal starten, da es, wie bereits erwähnt, ei¬ 
nen, wenn auch etwas abgeänderten, Reset durchführt. Daß 
der Monitor jetzt mit 60Hz läuft, sehen Sie daran, daß das 
Monitorbild durchläuft. Durch leichtes Drehen (nach links) 
des auf der Rückseite des Monitors befindlichen Drehreglers 
läßt sich dieses beheben. Auf den ersten Blick wird Ihnen 
kein großer Unterschied auffallen, aber mit der Zeit werden 
Sie doch merken, daß das Bild ruhiger ist und nicht mehr so 
flimmert. Besonders für den Farbmonitor ist das Programm 
empfehlenswert. 

Daß der Monitor mit 60Hz betrieben wird, läßt sich an einem 
(dem einzigen) Kennzeichen erkennen, und zwar ist dann ein 
kleiner Teil des oberen und unteren Randes immer schwarz. 
Das ist jedoch nicht weiter schlimm, sondern sieht eher bes¬ 
ser aus. Wenn Sie jetzt den Rechner aus- und wieder ein¬ 
schalten, wird das Bild durchlaufen (passiert nach jedem RE¬ 
SET bzw. jedem Einschalten). Um das zu beheben, geben 
Sie (mehr oder weniger ohne Bildschirmkontrolle) 

RUN"60Hz.bas" 

ein. Und schon beruhigt sich das Bild. (Anm.: Vorausgesetzt 
ist natürlich, daß sich das Programm unter dem Namen auf 
einer eingelegten Diskette befindet). 

Sie sollten das bei jedem Einschalten durchfuhren. Ist der 
Monitor einmal justiert, so braucht an diesem keine Einstel¬ 
lung mehr erfolgen. 

Falls Sie wieder mit 50Hz Bildwiederholfrequenz arbeiten 
möchten, so führen Sie einfach einen RESET durch und dre¬ 
hen den Drehregler entgegengesetzt, bis das Bild wieder ru¬ 
hig ist. 


Verträglichkeit mit anderen Programmen 


Die neue Frequenz ist zu 99,9% aller Programme verträglich 
und bringt dort eine bessere Bildqualität. Lediglich bei eini¬ 
gen Spezialprogrammen, wie z.B. Profi RSX (Teil 3, Bild¬ 
schirmverwaltung), die den Bildschirm durch das Gate- Ar- 
ray direkt steuern, kann es zu Problemen kommen, da hier 
das Timing, mit dem die Software den Bildschirm ansteuert, 
zerstört wird. Profi RSX und ähnliche Programme sollten 
also nur mit 50 Hz betrieben werden. 


Auch für CP/M! 


Mit CP/M arbeitet es problemlos zusammen. Laden Sie es 
wie oben beschrieben und booten dann danach CP/M wie ge¬ 
wohnt. 

Wichtiger Hinweis: Bei dem Programm “Screen Pack Plus“ 
(erscheint im Sonderheft 7) ergibt sich eine deutliche Quali¬ 
tätsverbesserung des Bildes. Hier ist es unbedingt ratsam, 
was auch grundsätzlich gilt, den Monitor mit 60 Hz zu be¬ 
treiben. 

(K. Kremer) 
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für 464-664-6128 


a 


10 

20 1 - 


[3171] 

[270] 


30 50/60 Hz-Umschalter fuer Schneider/ [3746] 

Amstrad CPC 464/664/6128 - 
40 ' - 


50 (c) 10/1987 by Klaus Kremer 

60 ' - 

7 0 •- 


[270] 

[1549] 

[270] 

[3171] 


80 ' [117] 

90 ' ************************************* [2102] 
«* 44 * 4 ** 4 * 44 * 44*444 

100 '***** Achtung: Der Monitor muss mit d [3232] 

Listing: Sprinter 


em Drehregler ***** 


HO ****** "V.HOLD" (auf der Rueckseite de 
s Monitors) ***** 

[2660] 

120 l *4*** so Justiert werden, dass das Bv 
Id nicht mehr ***** 

[2670] 

130 '***** durchlaeuft! (nach dem Durchlau 
f des Progr.) ***** 

[1608] 

140 '**♦********************************** 
******************* 

[2102] 

150 ' 

[117] 

160 versi onX=PEEK[ 6BD71) 

[1196 ) 

170 ’ 

[117] 

180 IF versionX=&E8 THEN cal11$=CHR$(&CD)+ 
CHR$ (8tAO)+CHR$(&5) 

[3428] 

190 IF versi onSS=455 THEN call 1$=CHR$ ( &CD ) + 
CHR$(8.9B)+CHR$(65) 

[3818] 

200 IF version*=&14 THEN call1$=CHR$(&CD)+ 
CHR$(&B1)+CHR$(65) 

[3486] 

210 ' 

[117] 

220 cal11$=CHR$(&CD)+CHR$(&6)+CHR$(&B9)+Ca 

1 1 1$ 

[1463] 

230 ' 

[117] 

240 CALL @cal11$ 

Listing: Sprinter 

[534 ] 
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STARKE EFFEKTE 


1*1 oh t 


Metallische Effekte überzeugend dargestellt 


Metallische Effekte 


“METALLIC“-Zeichen auf allen CPCs In 
allen Modes und weiteren tollen Effekten 


Sicher haben auch Sie schon die Buchstaben der neueren 
Spiele bestaunt, die oben weiß sind und nach unten hin 
z.B. immer dunkel blauer werden. Bewundert haben Sie 
bestimmt auch die Technik, einen ganzen Bildschirm 
“herein- und herausfahren“ zu lassen, wobei sich die ein¬ 
zelnen Zeilen des Screens noch verändern. 


All diese tollen Effekte müssen Sie ab jetzt nicht mehr nur fasziniert 
bestaunen, sondern Sie können sie selbst anwenden und in Ihren ei¬ 
genen (Spiel?) Programmen benutzen, denn METALLIC-RSX 
stellt Ihnen RSX- Befehle zur Verfügung, mit denen Sie genau die 
oben beschriebenen Effekte kinderleicht erzielen können: 

ZOUT: 

ZOUT läßt den Bildschirm z.B. auf die oben beschriebene Art 
“herausfahren“. Der Vorteil ist (neben dem tollen “Herausfahr- Ef¬ 
fekt“), daß Sie dann z.B. ein neues Bild aufbauen können, ohne, 
daß man es sieht! Allerdings sind auch alle Eingaben nach ZOUT 
solange nicht mehr sichtbar, bis Sie den folgenden Befehl benutzen: 

ZIN: 

ZIN läßt den mit ZOUT herausgefahrenen Bildschirm auf dieselbe 
Art wieder “hereinfahren“, das verdeckt aufgebaute Bild wird nun 
sichtbar. 

Neben diesen beiden Befehlen gibt es noch folgende, die METAL¬ 
LIC-RSX den Namen gaben: sie ermöglichen es, jeder der acht Zei¬ 
len, die ein Zeichen ja bekanntlich hat, eine Farbe zuzuordnen. Da¬ 
durch sind also Zeichen, die oben goldgelb sind und nach unten hin 
immer dunkelroter werden überhaupt kein Problem mehr, aber 
nicht weniger wirksam! 

Zusätzlich können Sie noch entscheiden, ob der Text, dessen Zei¬ 
chen Sie wie oben beschrieben darstellen wollen, in normaler oder 
in doppelter Größe angezeigt werden soll; Überschriften machen 
sich z.B. “echt Sahne“, wenn Sie doppelt so groß wie üblich ange¬ 
zeigt werden! Bevor die Zeichen aber mit den von Ihnen gewählten 
Farben in den Zeilen angezeigt werden, müssen Sie diese mit dem 
Befehl SET.COLOURS (oder abgekürzt SET.C) definieren: 
SET.COLOURS, 1,1,1,2,2,2,3,3 bewirkt z.B.,daß die ersten drei 


Zeilen jedes Zeichens in der Farbe von PEN 1, die zweiten drei in 
der von PEN 2 und daß die letzten beiden Zeilen (3+3+2 = 8) in 
der PEN 3-Farbe dargestellt werden. 

Nachdem Sie nun also mit SET.COLOURS (oder SET.C) definiert 
haben, welche Zeichenzeilen in welchen PEN-Farben gePRINTet 
werden sollen, können Sie nun mit dem RSX- Befehl “ PRINT,x,y, 
a$,a“ die Textvariable a$ an der Textposition x,y (entspricht den 
Koordinaten des LOCATE-Befehls) ausgeben. Die Variable “a“ 
gibt an, ob der Text in normaler oder in doppelter Größe dargestellt 
werden soll: a=0 bedeutet “normale Größe“; a=l “doppelte 
Größe“. 

CPC 664/6128 und VDOS-User können den zu PRINTenden String 
auch direkt übergeben (z.B. PRINT,0,l,a$,0 oder sogar 
PRINT,0,1, “HALLO“, 0). Es macht nichts, wenn Sie jetzt etwas 
verwirrt sind — genießen Sie die Demo und sehen Sie am besten 
auch dort nach, wie welche Effekte erreicht wurden. Wenn Sie 
selbst mit METALLIC-RSX arbeiten wollen (um z.B. Ihr neuestes 
Programm etwas aufzupolieren), brauchen Sie nur folgende Zeile 
im Direktmodus einzugeben und Ihnen stehen die METALLIC- 
RSX-Befehle zur Verfügung: 

MEMORY &99FF:LOAD“METALLIC.RSX“: 

CALL &9A00 < ENTER > 

(Vorher müssen Sie allerdings den DATA-Lader gestartet haben, 
denn dieser generiert und speichert das Maschinenprogramm “ME¬ 
TALLIC.RSX“) 

METALLIC-RSX ist voll VDOS- und CPC 664/6128-kom- 
patibel; außerdem paßt es sich automatisch dem aktuellen Mode an, 
so daß Sie immer Ihre Freude und Ihren Spaß an den neuen Befehlen 
haben werden ... (J.-M. Maczewski) 
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für 464-664-6128 

r' 


1 • **************** [528] 

2 ' * METALLIC-RSX * [1412] 

3 • **************** [528] 

4 ' [117] 

5 1 written in 10.1987 [1424] 

6 ' [117] 

7 ’ by Jan-Mirko Maczewskl [2893] 

8 • [117] 

10 MODE 1:CALL &BC02:80RDER 0:INK 0,0 [1778] 

20 PRINT"METALLIC - RSX":PRINT:PRINT [2810] 

30 PEN 2:PRINT"Bitte wartan ... lese DATAs [5165] 
":INK 2,6,15:SPEED INK 5,5:PEN 1 

40 adr=39424:z=500:inc=10:ende=39806 [ 2021 ] 

50 FOR i=0 TO 7 [486] 

60 READ byte$:byte=VAL("&"+byte$) [1808] 

70 summe=summe+byte [754] 

80 POKE adr,byte:adr=adr+l [850] 

90 NEXT 1 [375] 

100 READ prsum$:psum=VAL(“&"+prsum$) [1899] 

110 IF summeOpsum THEN 170 [852] 

120 IF adr=ende THEN 140 [1164] 

130 z=z+ 1 nc:summe= 0 :GOTO 50 [2586] 

140 PRINT:PRINT:INK 2,15:PRINT"DATAs OK .. [1479] 
.“:PRINT 


150 PRINT"B1tte Datantraeger zum Speichern [11823] 
von METALLIC.BIN ainlegan und eine Tas 


te druecken !":PRINT:CALL &BB18 

160 SAVE“METALLIC.RSX",b,&9AQ0,&180:END [1604] 

170 PRINT:PRINT CHR$(7):PRINT [1175] 

180 PRINT"**« DATAFEHLER in Zeile" 2 "*»* tl629] 

190 END [110] 

500 DATA 01,09,9a,21,27,9B.C3,01,31B [1485] 

510 DATA BC,1A,9A,C3,93,9A,C3,93,4B6 [1908] 

520 DATA 9A,C3,5C,9A,C3,37,9A,C3,4AA [2105] 

530 DATA AS.SA.SS.AS.SA^E.AS.AF^SF [1353] 

540 DATA 4C,4F,55,52,03,53,45,54,301 [1247] 

550 DATA 2E,C3,50,52,49,4E,D4,5A,358 [1786] 

560 DATA 49,CE,5A,4F,55,D4,00,AF,398 [1469] 

570 DATA 01,01,80,ED,49.CD,19,BO,397 [1395] 

580 DATA 04,ED,79,3C,FE,29,C8,1B,3AD [1449] 

590 DATA EF,3E,28,01,01,80,ED,49,349 [1346] 

600 DATA CO,19,BD,04,ED,79,3D,FE,448 [1574] 

610 DATA FF,C8,18,EF,FE,04,C2,3A,4CC [1164] 

620 DATA 9B,7B,32,F4,9A.CD,78,BB,4D6 [1264] 

630 DATA E5,DD,66,06,DD,6E,04,C0,44A [1754] 

640 DATA 75,BB,DD.66,03,DD,6E,02,3C3 [1826] 

650 DATA 46,23,5E,23,56,EB,7E,23,2CC [1197] 

660 DATA C5 t E5.CD,A9,9A,3E,09,CD,4CE [1285] 

670 DATA 5A,BB,E1,C1,10,F0,E1,CD,565 [2578] 

680 DATA 75,B8,C9,FE,08,C2,3A,9B,496 [2044] 

690 DATA 21,48,9B,06,08,DD,7E,00,26D [1579] 

700 DATA 77,23,DD,23,0D,23,lO,F5,39F [1223] 

710 DATA C9.F5.CD,78,BB,25,2D,CO,4DD [1891] 

720 DATA 1A,BC,22,0C.9B,21,48,9B.2A3 [1592] 

730 DATA 11,9F,9B,06,08,7E,CO,20,2D0 [1700] 

740 DATA BC,12,23,13,10,F7,Fl,CD,3C9 [1214] 

750 DATA A5,BB, 11, 7F,9B,CD,53,BC,467 [840] 

760 DATA CD,2B,9B,2A,0C,9B,11,A6,31B [1556] 

770 DATA 9B,06,08,00,21,7F,9B,C5,386 [1030] 

780 DATA E5,D0,E5,CD,18,9B,DD,£1,5E5 [1416] 

790 DATA El,70,06,08,67.30,04.01.207 [1074) 
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800 

DATA 50,CO,09,3E,00,B7,28,16,24C 

[1027] 

610 

DATA E5,CD,16,9B,El,7C,C6,08,490 

[1547] 

820 

DATA 67,30,04,01,50,00,09,18,100 

[1662] 

830 

DATA CI,10,D4,C9,00,00,3A,19,2C1 

[846 ] 

840 

DATA 98,00,23,30,20,FB,18,6F.3FA 

[ 1502] 

850 

OATA 06,00,1A,4F,DD,7E,00,Al,26B 

[2012] 

060 

DATA 77,23,00,23,10,86,09,00,369 

[1226] 

870 

DATA 00,00,OO.CD,11,BC,2F,E6,2AF 

[1864] 

880 

DATA 03,FE,03,20,01,3C 1 32,19 1 1AC 

[2016] 

890 

DATA 9B,C9,21,50,9B,7E,FE,FF,4EB 

[1104] 

900 

DATA C8,CD,5A,BB,23,C3,3D,9B,468 

[1633] 

910 

DATA 01,03,09,02,EA,59,09,02,15D 

[1784] 

920 

DATA OD.OA,07,2A,2A,20,46,65,13D 

[1551] 

930 

DATA 68,6C,65,72,20,62,65,69,2FB 

[1265] 

940 

DATA 20,64,65,72,20,50,61,72,29E 

[1139] 

950 

DATA 61,6D.65,74,65,72,75,65,358 

[1375] 

960 

DATA 62,65,72,67,61,62,65,20,2E8 

[1239] 

970 

DATA 2A.2A,OD.OA,OD.OA,FF.00,181 

[1394] 


1 'DEMO fuer METALLIC-RSX 

t 601 ] 

2 ' 

1987 by J-M. Maczewskl 

[625 ] 

3 ' 


[117] 

10 MEMORY &99FF:LOAD"METALLIC-RSX" 

[1664] 

20 CALL &9A0Q:INK 10,25:INK 11,18 

[1227] 

30 

ZOUT:MODE 0:INK 3,6:INK 4,3 

[2506] 

40 

SET.COLOURS,5,5,6,7,7,8,9,9 

[ 2 0 B 8 ] 

50 INK 5,26:INK 6,20:INK 7,14:INK 0,5:INK 

[3768] 

9,2 

INK 2,15:PEN 2:INK 0,0:BORDER 0 


60 a$=" METALLIC - RSX" 

[1304] 

70 

PRINT,l,l,@a$,0:INK 14,6,15 

[2198] 

80 

PRINT,1,2,9a$,l:INK 13,13 

[1560] 

90 

PRINT,l,4,@a$,0:INK 15,15,6 

[1894] 

100 

a$=” written ln 10.1967" 

[1007] 

110 

!SET.COLOURS,9,9,8,7,7,6,5,5 

[2041] 

120 

1 PRINT ,1,6,@a$,0 

[1070] 

130 

LOCATE 9,6:PRINT"BY":PEN 1 

[1217] 

140 

a$="Jan-Mirko Maczewskl" 

[2586] 

150 

!SET.C,10,1,1,2,2,3,4,4 

[1747] 

160 

!PRINT,l,10,8a$,l:PEN 11 

[1816] 

170 

LOCATE 9,13:PRINT"FOR 

[1244] 

180 

a$=" PC INTERNATIONAL 

[1723] 

190 

!SET.C,4,3,2,2,1,1,10,10 

[1553] 

200 

!PRINT,1,15,@a$,l 

[817] 

210 

x$=STRING$(40,"*") 

[1353] 

220 

!SET.C,9,9,9,1,3,3,3,3 

[1725] 

230 

!PRINT,1,19,@x$,0 

[1689] 

240 

t SET.C,14,15,14.15,14,15,14,15 

[2727] 

250 

b$="STARKE EFFEKTE" 

[2053] 

260 

;PRINT,l,22,@b$,l 

[1287} 

270 

LOCATE 6.25-.PEN 13 : PRI NT " 1 e 1 Cht gemach 

[3557] 

t" : 

-OCATE 1.1 


280 

! ZIN:FOR 1 = 1 TO 6000:NEXT 

[2349] 

290 

!ZOUT:MODE 1 

[1515] 

300 

PRINT:PRINT"Auch ln MODE 1 

[1787] 

310 

!SET.C,1,1,1,2,2,2,3,3 

[1800] 

320 

a$="TOLL£ WIRKUNG 

[1830] 

330 

1PRINT,4,5,@a$,1 

[956] 

340 

; zin 

[602] 

350 

FOR 1=1 TO 2500:NEXT:GOTO 30 

[1132] 
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THIISIK 

ist das Frage- und Antwortspiel mit über 500 Fragen und 
je 4 Antworten! Für den Schneider CPC 664 und 6128. 

- Komfortable Window-Technik 

- Für 1 — 4 Spieler oder als Gruppenspiel 

- Jede Frage wird pro Spiel nur einmal gestellt 

- Think enthält Fragen aus allen Wissensgebieten 

- Das Gesellschaftsspiel mit den unglaublichen Fragen 

- Für Groß und Klein - Trefferchance 25°/o! 

- Einfach und verständlich - leicht zu bedienen 

3“ Diskette nur 26,- DM. 

Bei Vorkasse (V-Scheck) KEINE PORTOKOSTEN, bei NN zzgl. 5,- DM 

TJR-Software 

Hintere Gasse 54 - 7306 Denkendorf 


TEAC - Diskettenlaufwerke 

Auf beliebigen Zweitlaufwerken stehen bis zu 830 KB (formatiert) zur 
url| Verfügung. Verarbeitung von fast allen Fremdformaten. 

DiskPara DM 79.* • MsCopy (Aufpreis) DM 20.- 
Siehe Tests in Schneider Aktiv 2/87, c’t 5/87, PC International 6/87, CPC Magazin 4/87, 
Happy Computer 4/87,8. Schneider Sonderheft. AiuchluBfertige Diskettenlaufwerke 
(830 KB) (ür CPC inkl. DiskPara u. MsCopy: 5,25": DM 499.- 3,5": OM 449.- 

JOYCE Anschlußfertige Diskettenlaufwerke 2x80 Tr. 1 MB, problemlo- 
MsCopy DM 49.- 


PC 


ser Anschluß. 3.5" nur OM 340.- 

5,25" mit eigenem Netzteil DM 449.- 
Aufpreis 5,25" 40/80 Tr. schaltbar für MsCopy DM 20.- 

Festplattenkit 30 MB DM 698.- inkl. Lüfter und kompl. Einbausatz 
Anschlußfertige Diskettenlaufwerke 720 KB 

2x80 Tr. mit Einbaukit - 40/80 Tr. umschaltbar DM 299.- 


Frank Strauß Elektronik, St. Marlenplatz 7,6750 Kaiserslautern, Tel. 0631 /16258 

Bitte bei Bestellung unbedingt genaue Systemkonfiguration angeben! 


1 ’88 PC 75 






























I—Tips & Tricks 


Ein Binärfile wird entblättert 

DATAGEN — ein DATA-Zeilen-Generator für alle CPC’s 


Mit Hilfe des hier vorgestellten BASIC-Programmes lassen 
sich DATA-Zeilen ganz komfortabel aus Binärfiles er¬ 
zeugen. 

Dieses BASIC-Programm läuft auf allen CPC-Versionen; 
die nötigen Anpassungen werden von dem Programm selbst 
vorgenommen. Außerdem kann das Programm mit Disc und 
mit Tape gleichermaßen betrieben werden. 

Um dem Anwender die Sache etwas einfacher zu machen, 
wurden einige Voreinstellungen vorgenommen, die aber auf 
Wunsch geändert werden können. 

Folgende vier Eingaben MÜSSEN gemacht werden: 

- Name der binären Quelldatei 

— Startadresse des Binärfiles 
(muß über &3FFF liegen) 

— Endadresse des Binärfiles 

- Name der BASIC-Zieldatei 

Mit diesen Angaben ist es auch möglich, Ausschnitte aus 
MC-Programmen in DATA-Zeilen zu verwandeln. 

Falls das Programm unter &4000 ablaufen soll, können Sie 
es ja in einen anderen Speicherbereich laden (mit veränderter 
Endadresse!) und dann später im BASIC-Programm die ent¬ 
sprechenden Zeilen wieder in die Original-Adressen umwan¬ 
deln. 


Eine Reihe von Optionen können auf Wunsch verändert wer¬ 
den (in Klammern sind die jeweiligen Voreinstellungen des 
Programmes angegeben): 

Anzahl der Bytes pro DATA-Zeile (8) 


für 464-664-6128 

r~~ 



1000 ' DataGen CPC 464/664/6128 [2305] 

1010 ' PC International [846] 

1020 ' (C) June 23 1987 [519] 

1030 ' H.E. Roescheisen [1485] 

1040 : [174] 

1050 REM headline and Copyright [1520] 

1060 . [174] 

1070 INK 0,0:INK 1,26:INK 2,19:INK 3,9:B0R [1634] 
DER 0 

1080 MEMORY &A67B:CLEAR:MEMORY &3FFF [1560] 

1090 SPEED KEY 15,l;MODE 1:PEN 3 [2026] 

1100 PRINT CHR$(24)" DataGen "CHR$(24) M CP [4813] 
C 464 Data Generator REV 1.0"; 

1110 PRINT CHR$(164)" June 1987 by COMPUTE [5380] 
R project Software 

1120 cpc=PEEK(&BB4F):LOCATE 14,1 [1566] 

1130 IF cpc=& 70 THEN PRINT" 664":POKE &B63 [3309] 
2,255:GOTO 1190 

1140 IF cpc=&74 THEN PRINT"6128":POKE &B63 [2782] 
2,255:GOTO 1190 

1150 POKE &B4E8,255 [809] 

1160 : [174] 

1170 REM init and System Inputs [2949] 

1180 : [174] 

1190 bs=1000:br=10:b1=-l:bpi=8:1c=0:xa=-l: [2617] 
hd=-l 

1200 LOCATE 1,5:PEN 2 [1130] 

1210 PRINT"PIease enter these facts be.ore [4154] 


1220 LOCATE 1,7:PEN 1 [762] 

1230 PRINT STRING$(40,32):LOCATE 1,7 [1755] 

1240 INPUT"Binary file: Name ";filel$ [2330] 
1250 IF fi1el$=""OR LEN(fi1el$)>12 THEN 12 [2259] 
20 

1260 LOCATE 1,8 [600] 

1270 PRINT STRING$(40,32):LOCATE 1,8 [1778] 


Listing Datagen 


- Erste BASIC-Zeile, mit der begonnen werden soll (1000) 
~ Schrittweite (Step) für die automatische Numerierung der 

BASIC-Zeilen (10) 

- BASIC-Lader an DATA-Zeilen anfügen? (ja) 

- Zeilen-Checksumme anfügen? (nein) 

- Im Falle einer Checksumme: Checksumme durch Addi¬ 
tion oder ’XORieren’ erzeugen? (ADD) 

- Hexadezimale/dezimale Zahlendarstellung in DATAs? 
(HEX) 

Diese Voreinstellungen wurden der Übersichtlichkeit halber 
den jeweiligen Fragen angefügt. 

Änderungen werden auf folgende benutzerfreundliche Art 
und Weise vorgenommen: Stimmt die voreingestellte Anga¬ 
be hinter der jeweiligen Option mit den Vorstellungen des 
Users überein, so braucht er nur den Anfangsbuchstaben der 
Voreinstellung (zum Beispiel H' für HEX) oder einfach die 
ENTER- oder RETURN- Taste zu drücken. Die Option wird 
dann unverändert übernommen. Soll eine Voreinstellung ge¬ 
ändert werden, so muß der Anfangsbuchstabe der anderen 
Option gedrückt werden (zum Beispiel ’D’ für DEC). Zahlen 
wie zum Beispiel die Schrittweite der BASIC-Zeilen werden 
durch Eintippen einer Zahl verändert. 

ENTER / RETURN behält die Voreinstellung bei. 
Diese Funktionsweise gilt auch für folgende »ja/nein«-Ab- 
fragen: 

- Wollen Sie die Voreinstellungen ändern? 

- Ist alles korrekt eingegeben? (E. Röscheisen/JB) 


1280 

INPUT"Start address ";s 

[2113] 

1290 

IF s=0 THEN 1260 

[1351] 

1300 

IF S <0 THEN s = S+65536 

[ 1379] 

1310 

IF s >42618 THEN 1260 

[ 1239] 

1320 

LOAD"!"+fi1el$,s 

[1094] 

1330 

LOCATE 1,9 

[603] 

1340 

PRINT STRING$(40,32):LOCATE 1,9 

[1777] 

1350 

INPUT"End address “;e 

[ 1435 ] 

1360 

IF e=0 THEN 1330 

[942] 

1370 

IF e<0 THEN e=e+65536 

[889] 

1380 

IF e >42 619 OR e < = s THEN 1330 

[1104] 

1390 

LOCATE 1,11:PEN 2 

[1172] 

1400 

PRINT"Use the standart DataGen values 

[3621] 

1410 

PEN 3:PRINT"yes 

[1203] 

1420 

a$=UPPER$(INKEY$) 

[ 789] 

1430 

IF a$="Y"0R a$=CHR$(13)THEN 1820 

[1966] 

1440 

IF a$<>"N"THEN 1420 

[1030] 

1450 

LOCATE 34,11:PRINT'no " 

[904] 

1460 

LOCATE 1,13:PEN 1 

[1122] 

1470 

PRINT“BASIC Tine to Start: 1000 

[ 3682 ] 

1480 

LOCATE 24,13:INPUT"",bs 

[1569] 

1490 

IF bs=0 THEN bs=1000 

[1542] 

1500 

LOCATE 1,14 

[ 738 ] 

1510 

PRINT"Autonumber step rate: 10 

[2030] 

1520 

LOCATE 24,14:INPUT"",br 

[2314] 

1530 

IF br=0 THEN br=10 

[ 440 ] 

1540 

LOCATE 1,15 

[ 737] 

1550 

PRINT"Add loader to DATAs: yes 

[2824] 

1560 

a$=UPPER$(INKEY$) 

[ 789] 

1570 

IF a$="Y"OR a$=CHR$(13)THEN 1600 

[1771] 

1580 

IF a$O n N"THEN 1560 

[ 1034] 

1590 

LOCATE 24,15:PRINT"no ":bl=0 

[ 1469 ] 

1600 

LOCATE 1,16 

[ 7363 

1610 

PRINT"Bytes per 1ine: 8 

[3119] 

1620 

LOCATE 24,16:INPUT"",bpl 

[2414] 

1630 

IF bpi=0 THEN bpi=8 

[643] 

1640 

LOCATE 1,17 

[ 735 ] 

1650 

PRINT"Add checksums/1ine: no 

[2838] 

1660 

a$=UPPER$(INKEY$) 

[ 789 ] 

Listing'Datagen 
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1670 

IF a$="N"0R a$=CHR$(13)THEN 1760 

[ 2582 ] 

1600 

IF a$< >"Y"THEN 1660 

[ 552] 

1690 

L0CATE 24,17:PRINT"yes":1 c = -l 

[ 1252 ] 

1700 

L0CATE 1,18 

[ 750] 

1710 

PRINT"X0R/ADD checksum: ADD 

[2217] 

1720 

a$=UPPER$(INKEY$) 

[ 789] 

1730 

IF a$= 11 A "OR a$ = CHR$( 13)THEN 1760 

[2856] 

1740 

IF a$< >"X"THEN 1720 

[ 546] 

1 750 

L0CATE 24,18:PRINT"XOR": xa = 0 

[2445] 

1760 

L0CATE 1,19 

[ 749] 

1770 

PRINT"DEC/HEX data bytes: HEX 

[2010] 

1 760 

a$=UPPER$(INKEY$) 

[ 789] 

1790 

IF a$="H"OR a$=CHR$(135THEN 1820 

[2468] 

1000 

IF a$< >"D"THEN 1780 

[ 1823] 

1010 

L0CATE 24,19:PRINT"DEC":hd = 0 

[ 2342 ] 

1020 

L0CATE 1,21 

[ 735 ] 

1030 

PRINT STRING$(40,32):LOCATE 1,21 

[1748] 

1040 

$ 

1850 

20 

INPUT"Name of BASIC DATA file ";file2 

[2966] 

IF f11e2$=“"OR LEN(fi1e2$)>12 THEN 18 

[1853] 

1860 

L0CATE 1,24:PEN 2 

[955 ] 

1870 

PRINT"Check for input errors! - OK: " 

[ 4546] 

1880 

PEN 3:PRINT"yes 

[ 1203 ] 

1890 

a$=UPPER$(INKEY$) 

[ 789 3 

1900 

IF a$="Y"OR a$=CHR$(13)THEN 1960 

[ 1954] 

1910 

IF a$<>"N"THEN 1860 

[ 1038] 

1920 

L0CATE 31,24:PRINT"no ":RUN 

[ 1179 ] 

1930 


[174] 

1940 

REM creation of ascii file 

[1136] 

1950 


[174] 

1960 

OPENOUT"!" + fi1e2$ 

[1181] 

1970 

WINDOW 1,00,4,24:CLS:WINDOW 1,00,1,25 

[ 1868] 

1980 

FOR i=1 TO 40 STEP 0.1 

[ 1039] 

1990 

OUT &BC00,1:OUT &BD00,i 

[ 830] 

2000 

NEXT 

[ 350] 

2010 

LOCATE 5,20:PEN 3 

[ 839 ] 

2020 

PRINT"Compi1ing DATA ... Please Wait 

[ 3535 ] 

2030 

IF bl=0 THEN 2420 

[933] 

2040 

PRINT#9,STR$(bs)"' Generated by DataG 

[4069] 

en 1 

0 


2050 

bs=bs+br 

[ 192] 

2060 

PRINT#9,STR$(bs)"MEMORY &"+HEX$(s-l) 

[3074] 

2070 

IF 1c THEN bs=bs+br 

[ 1502] 

2080 

IF lc THEN PRINT#9,STR$(bs)"dl="STR$( 

[2456] 

bs+13*br-hd*br) 


2090 

bs=b3+br 

[192] 

2100 

PRINT#9,STR$(bs)"FOR adr = & " HEX$(s,4) ; 

[2773] 

2110 

1 ) 

2120 

PRINT #9 ,"TO &"HEX$(e, 4) " STEP"STR$(bp 

[3548] 

IF lc THEN bs=bs+br 

[1502] 

2130 

IF lc THEN PRINT#9,STR$(bs)" c=0 

[1829] 

2140 

bs=bs+br 

[192] 

2150 

PRINT#9,STR$(bs)" FOR i=adr TO adr + 

[4054] 

" STR$(bpi -1 ) 


2160 

bs=bs+br 

[192] 

Listing Datagen 



2170 

IF hd THEN PRINT#9,STR$(bs)" READ 

[ 775 ] 

b$ 

2180 

IF hd=0 THEN PRINT#9,STR$(bs)" RE 

[3248] 

AD byte":GOTO 2210 


2190 

bs=bs+br 

[192] 

2200 

PRINT#9,STR$(bs)" byte=VAL("CHR$( 

[4738] 

34) "( 

1"CHR$(34)"+b$) 


2210 

IF 1c=0 THEN 2250 

[647] 

2220 

bs=bs+br 

[192] 

2230 

IF xa THEN PRINT#9,STR$(bs)" c=c+ 

[3067] 

byte 

2240 

IF xa=0 THEN PRI NT#9,STR$(bs)" c= 

[3879 ] 

c XOR byte 


2250 

bs=bs+br 

[ 192) 

2260 

PRINT#9,STR$(bs)" POKE i.byte 

[3435] 

2270 

bs=bs+br 

[ 192] 

2280 

PRINT#9,STR$(bs)" NEXT i 

[2575] 

2290 

IF lc = 0 THEN 2370 

[ 567 ] 

2300 

bs=bs+br 

[ 192] 

2310 

PRINT#9,STR$(bs)" READ cs 

[2530] 

2320 

bs=bs+br 

[ 192] 

2330 

PRINT#9,STR$(bs)" IF cs<>c THEN PRI 

[3258] 

NT" ; 
2340 

PRINT#9,CHR$(34)"DATA error in line'C 

[4497] 

HR$(34)"dl:END 


2350 

bs=bs+br 

[ 192] 

2360 

PRINT#9,STR$(bs)" dl=dl+"STR$(br) 

[3662] 

2370 

bs=bs+br 

[192] 

2380 

PRINT#9,STR$(bs)"NEXT adr 

[2914] 

2390 

bs=bs+br 

[ 192] 

2400 

PRINT#9,STR$C bs)"END 

[1978] 

2410 

bs=bs+br 

[192] 

2420 

FOR 1=s TO e STEP bpi 

[1041] 

2430 

cs = 0 

[97] 

2440 

PRINT#9,STR$(bs)" DATA 

[2178] 

2450 

bs=bs+br 

[192] 

2460 

FOR j=1 TO i+bpl-1 

[ 707] 

2470 

p=PEEK(j) 

[170] 

2480 

IF xa THEN cs=cs+p 

[ 473] 

2490 

IF xa=0 THEN cs=cs XOR p 

[ 1969] 

2500 

IF hd THEN PRINT#9,HEX$(p,2); 

[1247] 

2510 

IF hd=0 THEN PRINT#9,USING”###";p 

[2209] 

2520 

IF j <i+bp1-1 THEN PRINT#9,","; 

[1469] 

2530 

NEXT 

[350] 

2540 

IF 1c = 0 THEN PRINT#9:GOTO 2570 

[1799] 

2550 

IF hd THEN PRINT#9,",&"HEX${cs,4) 

[ 1502 ] 

2560 

IF hd = 0 THEN PRINT#9,", " ;USING"#### 

[1928] 

" ; cs 
2570 

NEXT 

[350] 

2580 

LOCATE 5,20:PEN 2 

[840] 

2590 

a$="Compi1ing ready: Closing file! 

[3306] 

2600 

FOR i=1 TO LEN(a$) 

[ 791 ] 

2610 

PRINT MID$(a$,i,1); 

[ 1271 ] 

2620 

NEXT 

[350] 

2630 

CLOSEOUT 

[ 902 ] 

2640 

LOCATE 1,24:END 

[1066] 
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FKE R002X (MDTTS R00® 


Für den 
Programmhit 
des Monats 

1 . 000 ,— 


Und für den 
Top-Tip 
des Monats 

500 ,- 


Das sind doch gute Argumente , Ihr Programm auch einmal zum Hit des 
Monats werden zu lassen. Bitte richten Sie Ihre Einsendungen an: 


DMV Daten & Medien Verlagsgesellschaft mbh — Fuldaerstr 6 - 3440 Eschwege 


1 ’88 PC 77 












f~Tips & Tricks 


Der kleine Helfer: SPURSEKT 


Das Programm SPURSEKT berechnet die Spur- und Sek¬ 
tornummer auf der Diskette bei Eingabe der Blocknum¬ 
mer eines Programms. 

Jedes Programm wird auf der Diskette in Blöcken geordnet 
abgelegt. Bei der Formation wird die Diskette jedoch spur¬ 
weise in Sektoren eingeteilt. 

Wenn man mit einem Diskettenmonitor den Inhalt einer Dis¬ 
kette sichtet, so steht in den ersten Spuren das Inhaltsver¬ 
zeichnis. Dort steht u.a. der Name des Programms und eine 
Liste der Blöcke, die das Programm belegt. Da einige Dis- 
kettenmonitore nur über Spur- und Sektomummer gesteuert 
werden, muß der geplagte Anwender nun mühsam die Block- 
nummem umrechnen. Wenn man neben AMSDOS- auch 
noch Vortex-Disketten hat, dann muß man sich drei ver¬ 
schiedene Umrechnungsformeln merken. 


Um hier Abhilfe zu schaffen, wurde das Programm SPUR¬ 
SEKT geschrieben. Es beinhaltet die Umrechnungsformeln 
für die Formate: 

AMSDOS-Daten AMSDOS-System 
Vortex 

Die Eingabe der Blocknummer erfolgt hexadezimal, da sie 
der Diskettenmonitor so anzeigt und eine Umrechnung so 
entfallt. Spur und Sektor werden dann dezimal und hexadezi¬ 
mal angezeigt. 

Der Rechner sollte in Mode 2 geschaltet sein. Das Programm 
nimmt absichtlich keine Mode-Umschaltung vor, da hierbei 
der Bildschirm gelöscht wird und eine eventuelle Anzeige 
des Diskettenmonitors so verloren geht. 

Mit dem Diskettenmonitor von Vortex im ROM VDOS 2.1 
kann man im Zusammenwirken mit SPURSEKT gut Pro¬ 
gramme auf Disketten sichten. (Werner Renziehausen/cd) 


für 464-664-6128 


fij 


□ 


10 1 Spur und Sektor - (C) w. Renzlehaus [2267] 

en 09.11.86 

20 ' [117] 

30 PRINT" VOOS / Systam-AmsDOS / Oata-AmsD [3B01] 
OS -> "CHR$(24)" V / S / D ”CHR$(24) 

40 a$=INKEY$:a$=UPPER$(a$):IF a$<>"V" AND [3405] 
a$<>"S" AND a$< >“0” THEN 40 

50 c=0:f=l:IF a$="V” THEN f=4:a=0:rox=176 [2838] 

Usting: Spursekt 


60 IF a$=“S" THEN a=440:mx=169 [1643] 
70 IF a$="0" THEN a=&CO:mx=178:c=2 [2272] 
80 ON ERROR GOTO 150 [1519] 
90 INPUT"B1ack (Hex-Eingabe) Nr.= ",b$ [2248] 


100 b=VAL("4"+b$):e=INT(b*20*f/9)/10+2.1:t [4426] 
= INT(a):s=(e-t)*10+a:t=t-c 

110 PRINT" ”;:LOCATE 33,VP0S(#0)-1:IF b>mx [5081] 
OR b<1 THEN PRINT" Unerlaubter Wert":GOTO 
90 

120 PRINT “ Spur";:PRINT USING"####";t;:PR [5174] 
INT" = “HEX$(t,2);"H Sektor"; 

130 PRINT USING"####“;s;:PRINT" = "HEX$(s, [2643] 
2) "H 

140 GOTO 90 [312] 

150 RESUME 90 [671] 

Usting: Spursekt 


Anpassung von Runner aus SH 5/87 

Wenn bei Ihnen das Runner-Spiel auf dem CPC 664/6128 
nicht laufen will, dann haben Sie recht. Das Problem läßt 
sich aber mit diesem Programm lösen. 

Um das Programm startklar zu bekommen, müssen Sie wie 
folgt Vorgehen: 

Listing 1 abtippen und unter ’RUNNER’ abspeichem. 
Listing 2 abtippen und auf separaten Datenträger (bei Kasset¬ 
te) abspeichem. 

1. Ladendes RUNNER-Binär-Files: 

MEMORY &84FF: LOAD "RUNNER.BIN“, &8500 


2. Laden und Starten von Listing 2: 

Hier werden die Änderungen vorgenommen. 

3. Speichern der neuen Version: 

SAVE "RUNNER1.BIN U ,B,&8500,&1218 

4. Als Ladeprogramm Listing 1 verwenden. 

5. Es muß sich nach dem RUNNER- Programm, das Binär- 
File befinden, welches die “Sprites“ enthält. 

Wichtige Hinweise: 

Das Spiel läßt sich nicht mit der ENTER-Taste unterbrechen. 
Das Spiel lädt automatisch die “Sprites“ nach. Der Pro¬ 
grammname muß der gleiche sein, wie der im Heft oder auf 
der DATABOX angegeben wurde. 

(D. Gradel/cd) 


für 464-664-6128 



10 

REM Listing 1 

[1168] 

20 

MODE 2 

[513] 

30 

MEMORY 484FF 

[ 758] 

40 

LOAD"runnerl.bin",88500 

[2064] 

50 

CALL 48500 

[513] 


5 REM Listing 2 


[1163] 

10 

REM *************************** 

[1393] 

20 

REM ** Anpassung von 'Runner 

' ** 

[1766] 

30 

REM ** fuer CPC 664/6128 

** 

[ 761] 

40 

REM ** Dietmar Gradl 

** 

[2038] 

50 

REM *************************** 

[1393) 

60 

MODE 2 


[513] 

70 

FOR x=48500 TO 48504 


[1706] 

80 

: POKE x,0 


[ 454] 

90 

NEXT x 


[356] 

100 FOR x=4850B TO &85 IC 


[1651] 
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110 

: POKE x,0 

[454] 

120 

NEXT x 

[356] 

130 

POKE 48509,433:POKE &B50A,4B6 

[1554] 

140 

POKE 4B6EC,412:POKE 4872C.412 

[1581] 

150 

POKE 48744,412:POKE 491AC.4B3 

[1605] 

160 

POKE 491AD.496:POKE 464FC.4B3 

[1717] 

170 

POKE 494FD.496 

[527] 

180 

FOR x=491AE TO 491B3 

[1681 ] 

190 

:POKE x,0 

[454] 

200 

NEXT x 

[ 356] 

210 

FOR x=494FE TO 49503 

[ 1258] 

220 

: POKE x,0 

[454] 

230 

NEXT x 

[356] 

2 40 

FOR x=496B3 TO 49712 

[1091] 

250 

: READ a$:POKE x,VAL("4"+a$) 

[1738] 

260 

NEXT x 

[356] 

270 

END 

[110] 

2SO 

DATA 11,48,03,00,66,96,11,64,00,0(1 

[ 1642 ] 

290 

DATA cb,96,11,0a,00,cd,cb,96,7d,c6 

[1702] 

300 

DATA 30.c3,5B,bb,eb,06,01,7c,b7,20 

[ 1289] 

310 

DATA 09,7a,bd,38,05,65,2e,00,06,09 

[1294] 

320 

DATA 7b,95,7a,9c,38,05,04,29.30,f6 

[ 1864] 

330 

DATA 3f,3f,78,44,4d,21,00,00,3d,20 

[1308] 

340 

DATA 03,18,17,29,f5,78,lf,47,79,lf 

[2003] 

350 

DATA 4f,7b,91,7a,90,38,05,57,7b,91 

[2069] 

360 

DATA 5f , 2C,f1,3d,20,e9,7d,c6,30,eb 

[1891] 

370 DATA e5,cd,5a,bb.el,c9 

Listing Runner 

[783] 
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DATABOX: 

— mehr als der übliche 
Softwareservice 

— bringt ergänzend 
sämtliche Listings der 
jeweiligen Zeitschrift 
und alle Programm¬ 
beispiele auf Kassette 
oder auf 3”Diskette. 

— Programme sind, so¬ 
weit systembedingt 
möglich, auf allen drei 
CPC-Modellen lauffä¬ 
hig. Einzelheiten ent¬ 
nehmen Sie bitte der 
nebenstehenden Auf¬ 
stellung. 

— soweit die Program¬ 
me nicht Bestandteil 
einer Serie sind, befin¬ 
den sich alle Program¬ 
me als, ready to run’ 
auf der Databox. 

— erscheint jeden Monat 
und trägt das Titelbild 
des gleichzeitig er¬ 
scheinenden Heftes. 

— der Datenträger zum 
PC Schneider Interna¬ 
tional enthält außer¬ 
dem jedesmal ein zu¬ 
sätzliches Bonuspro¬ 
gramm, das nicht im 
Heft abgedruckt ist. 



Für alle CPC’s als Kassette und 
3” Diskette. 

Auch als Abonnement mit Preis¬ 
vorteil erhältlich. 


Einzelbezug;. 

Einzelbezugspreise für DATABOX: 

Diskette 3'' 24,— DM zuzüglich 3,— DM Por- 
toA/erpackung (im Ausland zuzüglich 5 — DM 
Porto/Verpackung). 

Kassette 14,— DM zuzüglich 3,— DM Porto/Ver¬ 
packung (im Ausland zuzüglich 5,— DM Por¬ 
to/Verpackung) 


Zah5ur.gsweise: 

Am einfachsten per Vorkasse (Verrechnungs¬ 
scheck) oder als Nachnahme zuzüglich der 
Nachnahmegebühr (in das Ausland ist Nach¬ 
nahme nicht möglich). 


Preisvorteil durch Databox-Abo: 

Unser beliebter Databox-Service kann ab so¬ 
fort auch im Abonnement bezogen werden 
Dadurch sparen Sie Mühe und haben außer¬ 
dem noch einen Preisvorteil gegenüber dem 
Einzelbezug. 



Inhalt der Databox zu Heft 1/88: 

Programm 464 664 

6128 

Einladungen • 

• 

• 

Popcorn • 

• 

• 

Spieleprogr. in Assembler • 

• 

• 

Profi-RSX Demo • 

• 

• 

Profi-RSX Teil 8 • 

• 

• 

Kalender • 

• 

• 

Emulator • 

Disc-Label • 

• 

• 

Datagenerator • 

• 

• 

60 Hertz-Umschalter • 

• 

• 

Metallic-RSX Demo • 

• 

• 

Metallic-RSX • 

• 

• 

Runner Anpassung 

• 

• 

Spursektor • 

• 

• 

Bonusprogramm • 

• 

• 

Der Emulator ist nur auf der Databox. 

Es befinden sich Info-Files auf der Databox 
Bonusprogramm: Rösselsprung, Strategiespiel 


Das Databox-Abo kostet: 

Als Kassette für 1/2 Jahr (6 Lieferungen); 

Im Inland und West-Berlin.90,— DM 

Im europäischen Ausland . 100,—DM 

Im außereuropäischen Ausland 120,— DM 

Als Diskette für 1/2 Jahr (6 Lieferungen): 

Im Inland und West-Berlin . . 150,— DM 

Im europäischen Ausland.160,— DM 

Im außereuropäischen Ausland . 180— DM 

Als Kassette für 1 Jahr (12 Lieferungen): 

Im Inland und West-Berlin.180,— DM 

Im europäischen Ausland.200— DM 

Im außereuropäischen Ausland . .240,— DM 

Als Diskette für 1 Jahr (12 Lieferungen): 

Im Inland und Westberlin 300,—DM 

Im europäischen Ausland.320 — DM 

Im außereuropäischen Ausland. 360,— DM 

In den vorgenannten Preisen sind die 
Versand- und Verpackungskosten enthalten 
Bitte benutzen Sie für Ihre Bestellung die Abo- 
Karte 



Bestellkarte ausfüllen und absenden an: 

DMV Daten- und Medien-Verlagsgesellschaft mbH 
Postfach 250 • Fuldaer Str. 6 
3440 Eschwege • Tel. (0 56 51) 87 02 
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Poke'O'Mania 


Es wird wohl niemanden geben, der 
das grafisch echt super gemachte 
ARMY MOVES (ohne POKE !) ge¬ 
schafft hat, denn schon der erste Teil ist 
überaus schwer. Also paßt dieses Spiel 
hervorragend in diese POKE-Ecke. 
Alle Besitzer der Diskettenversion von 
ARMY MOVES werden mit dem fol¬ 
genden Listing gegen alles immun 
(können also “durch alles durch“) und 
bekommen unendliche Leben ! (Natür¬ 
lich funktioniert das in beiden Teilen 
des Spiels.) Wer den zweiten Teil ohne 
POKE spielen möchte, den Code aber 
noch nicht weiß, dem sei es hier verra¬ 
ten: da es sicher einige Freaks gibt, die 
den Code nicht sehen, sondern selber 
(durch Schaffen des ersten Teiles) her¬ 
ausfinden wollen, gebe ich ihn so an: er 
ist das Produkt aus 2.66875 mal 5760! 

1 • ARMY MOVES (Disk) Teil 1 und 2 

2 1 1987 by J-M.M. 

3 1 

10 FOR y=&AF00 TO &AFFF 
20 READ a$: IF a$="**“ TUEN’ 60 
30 w=VAL("&“+a$) 

40 sum=sura+w: POKE y, w 
50 NEXT y 

60 IF sum> <8491 THEN PRINT"DATA- 
FEHLER“:END 

70 MODE 1:1NK 1,2 5: INK 0,0: BORDER 0 
80 PRINT“ARMY MOVES" : PRINT 
90 PRINT"Teil 1 oder 2 POKEn ?“ 

100 a$=UPPER$(INKEY$): IF a$="" GOTO 100 
110 IF a$> "1“ OP. a$< “2" THEN 100 
120 PRINT :PRINT"Bitte ARMY MOVES - Disk 
einlegen 

130 PRINT"und eine Taste druecker. 

. . .": CALL &BB18 


140 CALL &AF00,VAL(a$)-l 
150 ’ 

160 DATA FE,01,C0,DD,7E,00,B7,28 
170 DATA 05,21,51,AF,18,03,21,59 
180 DATA AF,06,08,F5,11,00,C0,CD 
190 DATA 77,BC,21,36,01,CD,83,BC 
200 DATA CD,7A,BC,F1,FE,01,28,15 
210 DATA 21,9F,0E,36,03,21,93,18 
220 DATA 97,77,21,76,OB,36,18,23 
230 DATA 36,OB,C3,36,01,21,ID,0A 
240 DATA 36,AF,97,21,9F,12,77,32 
250 DATA 85,18,AF,32,81,04,C3,36 
260 DATA 01,41,52,4D,32,2E,53,42 
270 DATA 46,41,52,4D,31,2E,53,42 
280 DATA 46,** 

So, nun zu Hewson’s neuestem, gra¬ 
fisch mal wieder brilliantem Spiel 
:EXOLON. Verzweifelten Stemen- 
kriegern, die die Diskettenversion be¬ 
sitzen, kann das folgende Listing sicher 
helfen: von frei wählbarer Lebensan¬ 
zahl über unendliche Leben, unendli¬ 
che Schüsse und unendliche Granaten 
bis zur totalen Unverletzbarkeit 
(“durch alles durch“) spannt sich der 
Bogen der Möglichkeiten, die geboten 
werden! 

Lassen Sie einfach die DATA-Zeilen 
weg, deren Hilfe Sie vielleicht noch 
nicht in Anspruch nehmen wollen: um 
nicht unverletzbar zu sein, tippen Sie 
z.B. die Zeilen 660 bis 690 nicht ein, 
fertig ! Wollen Sie z.B. 200 Leben ha¬ 
ben, müssen Sie das zweite DATA-Sta- 
tement in Zeile 580 in C8 ( ! C8’ ergibt 
sich aus ’?HEX$(200)’) ändern 
...WICHTIG ist allerdings, daß Sie 
Zeile 710 IMMER eingeben! 


Und nun viel Spaß beim Spielen ... 

1 1 2 3 EXOLON (Disk) 

2 ' 1987 by J-M.M. 

3 1 

10 FOR i = &AP0C T0 &AFFF 
20 READ a$: J.F a$=‘-** 11 TUEN 50 
30 POKE i,VAL("&"ra$) 

40 NEXT 

50 MODE 1 :PRINT"B itte EXOLON-Wsk 
3inlegen und dann 
60 PRINT"«ine Taste d; -.e^ken ! 11 : 

CALL &BÖ1S 
70 CALL &AF08 

499 ’ 

500 DA" ” ' "'",0?,AF,C < ,00 00,00 
510 DAif. 21,t D,AF,C. ) f * ,BC,22,05 
520 FATA " F,Lj,43,07,AF,11,00,00 
530 DATA 21,00,01,0E,41,CD,03,AF 
5hu. ">1 ,OB,01,36,C9,CD,00,01 
550 DATA 21,65,00,36,C3>21,92,00 
560 DATA 36,01,23,36,AF,CD,50,00 
570 ’ 09 Leben 

580 DATA 3E,09,32,2B,01 
590 1 unendliche Leben 
600 DATA 97,32,25,2A 
610 1 unendliche Schuesse 
620 DATA AF,32,59,11 
630 1 unendliche Granaten 
640 DATA 97,32,7A,1F 
650 1 “durch alles durch“ 

660 DATA 21,CF,29,36,00,23,36,00 
670 DATA 23,36,00,21,F3,29,36,00 
680 DATA 23,36,00,23,36,00,21,CF 
690-DATA 2A,36,00,23,36,00,23,36,00 
700 1 Zeile 710 IMMER eingeben ! 

710 DATA 03,68,00,** 

Neben MANIC MINER darf auch der 
“Golden Oldie“ BOULDER DASH in 
keiner POKE-Sammlung fehlen, wes¬ 
halb er hier auch gePOKEd wird: 
wahlweise unendliche Zeit und/oder 
unendliche Leben machen Rockford’s 
Leben etwas leichter (und Ihres sicher 
auch ...) 

1 1 Boulder Dash (Kassette) 

2 1 1987 by J-M.M. 

3 1 

10 MODE 2: MEMORY &94FF 
20 FOR i=&9500 to &9600 
30 READ a$: IF aS^ 1 **“ THEN 60 
40 POKE i,VAL("&"+a$) 

50 NEXT 

60 PRINT"Bitte Kassette einlegen und eine 
Taste druecken“:CALL &BB18 
70 CALL &9500 

100 DATA 21,00,02,11,25,70 
110 DATA 3E, 87, CD, Al, BC 
115 1 unendliche Leben 
120 DATA 3E.7B,32,50,ID 
125 ' unendliche Zeit 
130 DATA 21,D7,08,36,00,23,36,00,23 
36,00 

135 1 Zeile 140 IMMER abtippen ! 

140 DATA C3,52,1F,** 
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Abenteuer—i 



Die Macher von the Pawn haben wieder zugeschlagen. Wie schon ihr er¬ 
stes Spiel, so entführt Sie die Gilde der Diebe in das magisch, mystische 
Land Kerovnia. Ihre Aufgabe ist es, die Aufnahmeprüfung der Gilde zu 
bestehen. 



Auf einer Flußinsel müssen Sie versuchen, alles von Wert zu finden und zu 
stehlen. Daß Sie dabei auch ja nicht mogeln, dafür sorgt das gestrenge 
Auge des Meisterdiebs, der Sie überwacht. 


Neues aus dem Land der Abenteuer 

Immer mehr Deutsche Anden Gefallen an Abenteuerspielen. Sicherlich wird 
nun so manch einer unter Ihnen, liebe Leser, ein wenig ins Grübeln kommen 
und sich fragen, wie dies angehen kann. Bedenkt man, daß es bisher kein 
deutschsprachiges Spiel dieses Genres gibt, daß alles, was ein anständiges 
Adventure ausmacht, sein Eigen nennt. Also kann man den wachsenden 
Erfolg englisch-sprachiger Adventures nur mit ihrer Qualität erklären. Und 
wer Spiele sucht, deren Qualität dem höchsten Stand der Entwicklung 
in Grafik, Story und Programm entsprechen, der kommt um einen 
Blick in Richtung Magnetic Scrolls nicht herum. 


The Guild of Thives 


Das Land Kerovnia, das bereits Schau¬ 
platz des Abenteuerspiels “The Pawn“ 
war, lädt Sie dazu ein, eine Karriere als 
Dieb zu machen. Allerdings ist das in 
Kerovnia nicht ganz einfach. Wer 
meint, einfach so losziehen zu können 
und einfach alles auszurauben, was ei¬ 
nem über den Weg läuft, wird sich 
schnell Ärger mit der Gilde eingehan- 
deln. 

Die Gilde der kerovnianischen Diebe 
wacht darüber, daß niemand, der nicht 
das Zeug dazu hat, den diffizilen Beruf 
des Profidiebes ergreift und prakti¬ 
ziert. Aber die Gilde hat Nachwuchs¬ 
sorgen und deshalb beschlossen, die 
Lehrzeit zu verkürzen und die Gesel¬ 
lenprüfung vorzuziehen. 

Sollten Sie sich dazu entschließen, es 
einmal als Dieb zu versuchen und sich 
zur Prüfung der Gilde zu imatrikulie- 
ren, nur zu. 


Als erstes werden Sie dem Meisterdieb 
begegnen. Er ist gleichzeitig Prüfer 
und hat ein Auge darauf, wie Sie die 
Aufgaben Ihrer Prüfung angehen und 
meistern. 

Der Meisterdieb wird mit Ihnen, in ei¬ 
nem kleinen Boot, zu einer kleinen In¬ 
sel im Fluß fahren. Dort müssen Sie 
dann das Boot verlassen, ausgerüstet 
mit nichts als Ihrem großen Diebes¬ 
sack. Und alles, was auf dieser Insel 
von Wert ist, müssen Sie ausfindig ma¬ 
chen und stehlen. Da die Gilde genaue¬ 
stem darüber informiert ist, welche 
Wertsachen auf der Insel zu finden 
sind, ist mogeln nicht möglich. Bei Ih¬ 
rem ersten Streifzug über die Insel wer¬ 
den Sie feststellen, das es einiges zu tun 
geben wird, bis die Prüfung bestanden 
ist. Ganz bestimmt werden Sie in das 
Wasserschloss mit der hochgezogenen 
Zugbrücke eindringen müssen und, so 
vornehm wie das Gebäude aussieht, 
haben die da drin sicherlich auch einen 
Safe. Einen Safe werdenSie nicht nur 
im Schloss finden, auch in der Filiale 


der kerovnianischen Bank auf der Insel 
müssen Sie einen Safe öffnen. Sind 
Bank und Schloss leer geräumt, bleiben 
Ihnen noch viele andere Sachen die ent¬ 
wendet werden können, auch wenn 
meistens eine ganze Menge Dinge vor¬ 
her getan werden müssen. 

The Guild of Thives, von diesem Spiel 
werden sicherlich schon einige von Ih¬ 
nen gehört haben. Über die Amiga 
Version erzählt man sich ja allerlei 
Wunderdinge. Nun endlich gibt es die¬ 
ses brilliante Spiel auch für den CPC. 
Den Wehrmuthstropfen bei dieser 
Nachricht möchte ich keinesfalls ver¬ 
heimlichen, Guild of Thives läuft nur 
auf dem CPC 6128. 

Nun muß die Gilde der Diebe es sich 
natürlich gefallen lassen, mit anderen 
Versionen des Spiels verglichen zu 
werden. Daß man von einer CPC 6128 
Version nicht das verlangen kann, was 
bei der Amiga gang und gäbe ist, sollte 
klar sein. So ist dann die Grafik des 
Programms bestenfalls irgendwo im 
Mittelfeld desmöglichen angesiedelt. 
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«hat nun? LOOK 

You are in « dingy stable. 9 tenporary building uitli canuas walls and lots of 
strag An exit le&ds east. You can see the liuge knight 
You, Grindleyuts, leap furlously at the jabbing figure beside you - and 
discouer, to your horror. that yaur legs »re fastened to sone huge anlnal* to 
the shr 1! 1 tound of hunan nerrtnent, you tlide tlouly round the ho.-*e to uh ich 
you haue been tieJ and hang helplesaly belou 1t. 


(Press any key to continue) 


J 


hard ground .... 

Sone tine later, you auahe. Brulsed and battered, but you «ust be still aliue! 
ftt first 1t seens to be night, but you gradually reallse that you are burled. 

You are ln a huge plle of garbage, ulth the other rubbieh throun auay after the 
tournanent Exits lead dounuards and ouUide. You can see a putty knife and a 
hooded cloak. 

Uhat now? . 


Ritter Orc. Ein Orc, Ritter? Kaum zu glauben, daß einer jener übelrie¬ 
chenden kleinen Unsympathen die Stirn hat, an einem Turnier teilzuneh¬ 
men. Da haben wohl seine Kumpane ein ganzes Stück nachgeholfen. 


Im Iuinde, in dem das Abenteuer Knight Orc spielt, gibt es für den Spieler 
allerlei zu entdecken. Aber es gibt auch eine ganze Menge von Leuten, die 
unserem Orc ans Leder wollen. 


Interessant ist auf jeden Fall der Phar- 
ser des Programmes. Magnetic Scrolls 
ist es gelungen, einen Pharser zu pro¬ 
grammieren, der während des Spiels 
mindestens ebensoviel Komfort bietet, 
wie der legendäre Infocom Pharser. 

Welcher der beiden nun effektiv besser 
ist, das kann wohl nur ein versierter 
Programmierer ermessen. 

Auch in anderer Hinsicht scheint es so, 
als würde Magnetic Scrolls Infocom 
ein wenig nacheifem. 

Das Spiel kommt in einer feinen Ver¬ 
packung, die außer der Diskette noch 
eine ausgezeichnete und ausführliche 
Bedienungsanleitung und einige kleine 
Extras enthält. 

Auf jeden Fall ist die Gilde der Diebe 
eine der besten Adventure-Neuerschei- 
nungen der letzten Monate. 


Ritter Orc 


Wie die Programme von Magnetic 
Scrolls, werden auch die Produkte der 
Level 9 Programmierer durch das La¬ 
bel Rainbird vertreten. 

Auch die Jungs von Level 9 haben in 
der Abenteuer weit bereits einiges an 
Reputationen zusammengetragen. So 
bekannte Adventures wie Prize of Ma¬ 
gic, die Silicon Dreams Trilogie und 
die Jewels of Darkness Adventures 
stammen aus ihren Federn. 

Bisher folgten die Level 9 Ideenleute 
eigentlich immer eher ernsten bis dra¬ 
matischen Themen. 


Ritter Orc bricht mit dieser Tradition 
und entführt den Spieler auf zweierlei 
Art in neue Gefielde. Zum einen über¬ 
nehmen Sie als Spieler nicht die Rolle 
des Helden, sondern verkörpern einen 
Orc. 

Dazu ist anzumerken, daß Orks übli¬ 
cherweise Tageslicht verabscheuen, al¬ 
les was gut und ehrlich ist hassen und 
sich dort, wo es am übelsten stinkt, am 
wohlsten fühlen. 

Zweites Novum in diesem Programm 
ist der Humor. Denn Grindelguts, so 
der Name des von Ihnen verkörperten 
Orcs, ist, selbst für die Verhältnisse 
seiner Rasse nicht besonders helle. 

Das Spiel, das übrigens aus drei Teilen 
besteht, von denen jeder für sich ein ei¬ 
genes Abenteuer darstellt, beginnt da¬ 
mit, daß Grindelguts feststellen muß, 
daß seine sogenannten Freunde ihn hin- 
tergangen hatten. 

Das letzte, an das er sich erinnern 
kann, warein mächtiges Saufgelage, in 
dessen Verlauf die versammelte Orcge- 
meinde einen Champion für das Tur¬ 
nier gegen die Menschen bestimmen 
wollte. 

Nun lag er im Gasthaus, noch benom¬ 
men von den dreißig Bieren vom Vor¬ 
tag und... angekettet! Da hatten seine 
Freunde ihn doch tatsächlich betrunken 
gemacht und hier als Champion zu¬ 
rückgelassen. 

Zu allem Überfluß wurde es vor dem 
Zelt schon langsam hell, und Grindle- 
guts konnte schon die Menschen hören, 


die auf den Turnierplatz strebten, um 
dort die Niederlage des Orc-Ritters zu 
beobachten. 

Tja, und von da an hat Grindeleguts 
alle Hände voll zu tun, am Leben zu 
bleiben. 

Nun, wer es einmal als schmuddeliger 
Orc versuchen möchte, und einen 
Computer besitzt, der braucht sich ei¬ 
gentlich nur noch das Programm be¬ 
sorgen. 

Welches Computersystem Sie dann im 
einzelnen haben, ist bei Level 9 fast gar 
nicht mehr von Relevanz, da die Spiele 
für fast jeden Rechnertyp von CPC bis 
PC angeboten werden. 

Wie auch immer, haben Sie erst einmal 
angefangen zu spielen, werden Sie so 
schnell wohl nicht mehr aufhören. 
Nicht nur, daß die präsentierte Story 
wirklich ihre Qualitäten hat, der 
Schwierigkeitsgrad des Spiels ist au¬ 
ßerdem nicht gerade als leicht zu be¬ 
zeichnen. 

Sowohl die Gilde der Diebe, wie auch 
Ritter Orc (Knight Orc) bieten alles, 
was das Abenteurerherz begehrt. 

Allerdings werden Sie bei beiden über 
gute Englischkenntnisse verfügen müs¬ 
sen, oder aber einen dicken Langen- 
scheidts nebenan liegen haben. 

So oder so, die Programme seien Ihnen 
ans Herz gelegt, denn es wird sicher¬ 
lich einige Zeit dauern, bis da wieder 
etwas von dieser Qualität des Wegs 
kommt. 

(HS) 


82 PC 1 ’88 




















4 GAME COMPILATION FOR USE ON 
AMSTRADCPC COMPUTER DISK 


GÄÜNTLET 


HIT 

GAMES 


EXCITING 

EVENTS 


n 


|| ^ Angebote die ihr Geld wert sind! 

CPC Super Sampler r - 


The world’s greatest 

Cass. Best.-Nr.112 35,- DM 
3“ Disk. Best.-Nr.113 49,- DM 


Cruiser Joystick 

stabil, formschön und...schnell! 
für ganze. 35,-DM 


4 Computer Hits 

Cass. Best.-Nr.114 35,- DM 
3“ Disk. Best.-Nr.115 49,- DM 


ohne Abbildung: 


Best.-Nr.116 

Best.-Nr.117 

Best.-Nr.118 

Best.-Nr.119 

Best.-Nr.120 

Best.-Nr.121 

Best.-Nr.122 

Best.-Nr.123 

Best.-Nr.124 

Best.-Nr.125 

Best.-Nr.126 

Best.-Nr.127 

Best.-Nr.128 


Clever und smart 
Clever und smart 
Driller 
Driller 

Evening Star 
Evening Star 
Indiana Jones 
Indiana Jones 
Trantor 
Trantor 
XOR 
XOR 

Western Games 


(Cass.) 

(3“Disk.) 

(Cass.) 

(3“Disk.) 

(Cass.) 

(3“Disk) 

(Cass.) 

(3“Disk.) 

(Cass.) 

(3“Disk.) 

(Cass.) 

(3“Disk.) 

(3“Disk.) 


35,- DM 
49,- DM 
49,- DM 
59,- DM 
32,- DM 
49,- DM 
35,- DM 
49,- DM 
35,- DM 
49,- DM 
35,- DM 
49,- DM 
49,- DM 


10 Hit Games 

Cass. Best.-Nr.110 
3“ Disk. Best.-Nr.111 


an: 


3 Noch heute absenden 


ACE 0F ACES 
LEAIMLBOARlÄ 
WINTER GAMES 
INFIRTRATOR 


kor i m on AMSTRAD c \ssetti 


Solid Gold 

Cass. Best.-Nr.108 35,- DM 
3“ Disk. Best.-Nr.109 65.- DM 


DMV Verlag • CPC Bestellservice • Postfach 250 • 3440 Eschwege 
Bitte verwenden Sie unsere Bestellkarte! 
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LocoScript 
wird CP/M-fähig 

LOCOCON: 

Ein universelles 
Konvertierungsprogramm 
für LocoScript-Texte 


Das JOYCE-Textsystem LocoScript 
hat gegenüber anderen Textverar¬ 
beitungsprogrammen anerkannt 
viele Vorteile. So kann z.B. der Be¬ 
dienungskomfort und die übersicht¬ 
liche Darstellung auf dem Bild¬ 
schirm durchaus als optimal gelun¬ 
gen angesehen werden. Kritiker des 
Systems bemängeln jedoch die lang¬ 
same Bearbeitungsgeschwindigkeit 
und Beschränkung der Ausgabe auf 
den relativ langsamen JOYCE- 
Drucker. An der Geschwindigkeit 
der Textbearbeitung (insbesondere 
beim Durchblättern und Suchen) 
läßt sich sicherlich bei den vorhan¬ 
denen Versionen nichts mehr än¬ 
dern. Der vorliegende Artikel ver¬ 
sucht jedoch den zweiten Mangel zu 
beseitigen und LocoScript auch für 
andere Systeme und Drucker zu¬ 
gänglich zu machen. Dies erfordert 
zunächst die “Entschlüsselung“ von 
LocoScript, womit sich der vorlie¬ 
gende Artikel befaßt. In ihm wird 
versucht, die bisher geheimgehalte¬ 
nen Strukturen und Codierungen 
aufzuzeigen. Im Anschluß wird 
dann ein umfangreiches Konvertie¬ 
rungsprogramm vorgestellt, das die 
direkte Bearbeitung und Ausgabe 
von LocoScript-Dateien im CP/M- 
Modus ermöglicht. 


Teil 1: Eine Geheimsprache 
wird entschlüsselt 


Der Appetit kommt bekanntlich über 
dem Essen, und so ist es nicht verwun¬ 
derlich, daß viele Joyce-Besitzer und 
Besitzerinnen mehr aus ihrer “Maschi¬ 
ne“ machen möchten, als ein wenig in 
BASIC programmieren oder ein paar 
Privatbriefe schreiben. Dies bestätigt 
auch die jüngste Fragebogenaktion von 


PC- International. Interessant war da¬ 
bei die Aussage, daß bereits 15% der 
JOYCE-Besitzer einen Typenrad¬ 
drucker an Ihr Gerät angeschlossen ha¬ 
ben. Daß es dabei immer wieder zu 
Schwierigkeiten mit Konvertierungs¬ 
programmen kommt, ist bekannt und 
wurde durch die Umfrage ebenfalls be¬ 
stätigt. LocoScript wurde speziell für 
das JOYCE- Komplettsystem ent¬ 
wickelt und bereitet deshalb bei der 
Ausgabe auf Fremddrucker einige Pro¬ 
bleme. 

Ärgerlich ist es, wenn für teures Geld 
ein Konvertierungsprogramm erstan¬ 
den wurde, das hinsichtlich Komfort 
und Druckeranpassung große Mängel 
aufweist. Hier soll deshalb ein anderer 
Weg aufgezeigt werden: Die Entwick¬ 
lung eines eigenen Konvertierungspro¬ 
gramms! Dabei besteht dann — anders 
als bei den kommerziellen Program¬ 
men — die Möglichkeit der individuel¬ 
len Gestaltung und Anpassung. 

Bei dem Versuch, etwas über die 
Struktur von LocoScript zu erfahren, 
läuft man zunächst einmal vor ver¬ 
schlossene Türen. Hersteller Locomo- 
tive Software und Vertreiber Schneider 
sind nicht bereit, die Geheimnisse die¬ 
ses Textsystems preiszugeben. So 
bleibt nur der mühsame Weg über die 
schrittweise Entschlüsselung dieser 
“Geheimschrift“ — und jeder, der eine 
ähnliche Aufgabe auf diese Weise zu 
lösen hatte, weiß, daß das Adjektiv 
’ mühsam’ hier noch geschmeichelt ist. 

Wichtiges Hilfsmittel bei einer derarti¬ 
gen Detektivarbeit ist das CP/M-Pro- 
gramm SID.COM (Symbolic Instruc¬ 
tion Debugger). Mit ihm lassen sich 
beliebige Dateien in hexadezimaler 
Form auflisten und untersuchen, ohne 
daß die Daten als Steuerzeichen für den 
Rechner interpretiert werden. 


USER und TRANS 


Zuvor noch einige Bemerkungen zum 
CP/M-Verhalten von LocoScript, ob¬ 
wohl dies vielleicht widersprüchlich 
klingen mag, da nicht unter CP/M lauf¬ 
fähig. In der Diskettenorganisation hat 
sich das Textsystem an die für 
CP/M-Plus festgelegten Regeln gehal¬ 
ten. Aufbau der Directories und Bele¬ 
gung der Sektoren stimmen überein. 
Wer jedoch seine Textdateien mit DIR 
auflisten will, wird zunächst feststel¬ 
len, daß viele Dateien fehlen. Loco¬ 
Script benutzt nämlich die verschiede¬ 
nen USER-Bereiche. Die Gruppe 0 bis 
Gruppe 7 im Textsystem entsprechen 
den Userbereichen 0 bis 7. Wird eine 
Datei in LocoScript gelöscht, so ge¬ 
schieht dies nicht unwiderruflich wie 
unter CP/M, sondern zunächst wird die 
zu löschende Datei als sogenannte 
Transdatei zwischengespeichert. Erst 
wenn der Platz auf der Diskette nicht 
mehr ausreicht, erfolgt automatisch ein 
Löschen der Datei. Für die Transdatei¬ 
en ist der Userbereich 8 bis 15 vorgese¬ 
hen. Ein Brief in der Gruppe 2 ist also 
normalerweise unter User 2, gelöscht 
dann als Transdatei unter User 10 zu 
finden. 

Darüber hinaus benutzt LocoScript 
auch noch weitere - in CP/M nicht üb¬ 
liche - Usergruppen, z.B. für den Dis¬ 
kettennamen. 


Die Grundstruktur 


Anders als ASCII- und Wordstardatei- 
en arbeitet LocoScript blockstruktu¬ 
riert, d.h. die gesamte Datenstruktur 
ist in Blöcke zu je 128 Bytes unterteilt. 
Dies bedeutet beispielsweise, daß die 
kleinste abspeicherbare Menge immer 
128 Bytes sind, auch dann, wenn nur 
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rin Byte abzuspeichem wäre. Die nicht 
relegten Bytes eines Blockes werden 
lann mit Nullen aufgefüllt. Bild 1 zeigt 
:en grundsätzlichen Aufbau einer Lo- 
:o Script-Datei. Die ersten beiden 
Blocke enthalten Informationen über 
nie Gestaltung und den Aufbau der Da¬ 
tei selbst und über die Darstellung des 
Textes auf dem Bildschirm. Der Inhalt 
ies nachfolgenden Blocks hängt nun 
davon ab, welche Zusatzinformation 
für Kopf- und Fußzeilentexte und/oder 
für weitere Layouts bereitgestellt wer¬ 
den muß. Falls kein Kopf- oder Fuß- 
leiltext eingegeben wurde und sich 
auch die Anzahl der Layouts im übli¬ 
chen Rahmen befindet (5 Layouts mit 
;e max. 10 TABs), so beginnt im drit¬ 
ten Block der eigentliche Text. 


Bearbeitungspakete 


LocoScript ist in puncto Seitengestal¬ 
tung relativ flexibel. Dies wiederum 
führt zwangsläufig zu einer komplexe¬ 
ren Datenstruktur. Wie oben bereits er¬ 
wähnt, ist die kleinste Speichereinheit 
1 Block (128 Bytes). Die nächstgrößere 
Einheit ist jedoch nicht — wie man ver¬ 
muten möchte - eine Textseite. Als 


Kompromiß zwischen Flexibilität und 
benötigtem Speicherplatz wird die 
Länge einer zusammenhängenden 
Texteinheit auf 17 Blöcke begrenzt. In 
Ermangelung eines geeigneten Fachbe¬ 
griffs sei diese hier ’Bearbeitungspa¬ 
ket’ genannt. Die Größe eines Bearbei¬ 
tungspaketes liegt also zwischen einem 
Block (128 Bytes) und 17 Blöcken 
(2176 Bytes). Bei normaler Seitenge¬ 
staltung befindet sich das Textende be¬ 
reits im ersten Bearbeitungspaket. Bei 
dicht beschriebenen Seiten, bei größe¬ 
rer Zeilenlänge oder bei der Benutzung 
vieler Einfügecodes werden jedoch 
zwei oder mehr Bearbeitungsblöcke 
belegt. 


Blockdaten 


Die empirisch ermittelten Daten, ihre 
Bedeutung und Codierung wurde hier 
versucht in Tabellenform darzustellen. 
Bei der Blockinformation wurde zu¬ 
sätzlich der Inhalt der entsprechenden 
Adresse angegeben, um dem/der inter¬ 
essierten Leser/in die Möglichkeit zu 
geben, die Daten gegebenenfalls auf 
seinem Bildschirm wiederzufinden. 
Der Inhalt entspricht dem Textbeispiel 


DRUCK.BSP auf der LocoScript- Sy¬ 
stemdiskette und dürfte somit für jeden 
zugänglich sein. Betrachtet man die 
Struktur des ersten Blocks (Bild 2), so 
kommt zunächst einmal ’Freude’ auf. 
Die ersten drei Bytes jeder LocoScript- 
datei sind nämlich mit den ASCII-Zei- 
chen 4A, 4F, 59 gefüllt, also tatsäch¬ 
lich mit “JOY“. Nach zweimal >Ctrl- 
A < (01) folgt der Info- Text der Datei, 
der — wie bekannt — im Modus (f7) 
Identifikation ändern’ eingegeben 
werden kann und dann in der Diskver¬ 
waltung mit f2 abzurufen ist. Die Be¬ 
deutung der anderen Blockdaten ist aus 
den Tabellen ersichtlich. Der oder die 
LocoScript-Geübte wird dort die bei 
der Textbearbeitung verwendeten Be¬ 
griffe und gemachten Eingaben wie¬ 
derfinden. Bei der Zeileninformation 
arbeitet LocoScript mit der Angabe 
von Halbzeilen. Die Daten für Rand 
und Tabulator sind auf die Spaltenan¬ 
gabe im Textbearbeitungsmenü bezo¬ 
gen. Ist der Inhalt der Adresse 0069 des 
ersten Blockes größer Null, so wird mit 
Kopf- und Fußteiltext gearbeitet. Die¬ 
ser ist dann unter den entsprechenden 
Byte-Adressen (0073 bis 0076 und 
007A bis 007D) im angegebenen Block 
zu finden. 


•JOT* 

Text-Info 

Kenndaten 

Seltenaufbau 


Block 0 


Baele-Layout 
Layout 1 bl6 Layout 5 


Block 1 


Seltencodierung 
Aktuelle Schrift/Layout 


1. Textblock 


2. Textblock 


17. Textblock 


Seitencodierung 
Aktuelle Scbrlft/Layout 


1. Textblock 


2. Textblock 


Block 2 


Block 3 


Block 16 


Block 19 


Seltencodierung 
Aktuelle Schrift/Layout 

1. Textblock 


Block 21 


4. Textblock 


Block 24 


CO 


V 

+> 


0) 

CO 


5.'Id 1: Die Blockstruktur von LocoScript 


Adresse 

Inhalt. 

Bedeutung 

Q00C 

4A 

“J" 

0001 

4F 

O' 

0002 

59 

"T 

0003 

01 


0004 

01 


0005 

44 

Textinfo Anfang 

OOSE 

20 

Textinfo-Ende 

005F 

05 

Anzahl der Layouts 

0060 

0A 

Anzahl der Tabs pro Layout 

0061 

2F. 

Darstellung Kcrana 2E- 20=. 

0062 

7F 

Darstellung Hüll 7F=0 30=0 

0063 

FF 

Witwen und Waisen möglich 00=,ia FF=nein 

0064 

00 

geteilter Absatz möglich 00=Ja FF=nein 

0065 

01 

Anzeige-Codierung (siehe Bild 8) 

0066 

00 

? 

0067 

00 

*> 

0068 

00 

•? 

0069 

8C 

Halbzellen/Seite 6C hex=140=70 Zeilen 

006A 

00 

Anfang (Block-Nr.) für Kopf- und FuSteiltext 

006B 

01 

-i erste Seitennummer 

006C 

00 


0C6D 

01 

- letzte Seitennumrer 

006E 

00 

-J 

008F 

FF 

Alle Seiten gleich (FF=ja 01=nein) 

0070 

12 

Halbzeilen Kopfteil (12hex=18=9 Zeilen) 

0071 

OC 

Halbzeilen Position des Kopftei1textes 

0072 

81 

Kopfteil möglich (erste Seite Bx, letzte Seite xl) 

0073 

00 

-i Adresse des Kopfteiltextcs für gerade Seiten 

0074 

00 

J (Byte-Nr von Anfang des Blocks in 006A) 

0075 

1A 

-| Adresse des Kopfteiltextes für ungerade Seiten 

0076 

00 

0077 

OE 

Halbzeiten Fußteil 

0076 

84 

Halbzeiten Position des Fußtei1textes 

0079 

81 

Fußteil möglich (erste Seite 8x. letzte Seite xl) 

007A 

0D 

-j Adresse des Fußteiltextes für gerade Seiten 

007B 

00 

007C 

27 

-j Adresse des Fußteiltextes für ungerade Seiten 

007D 

00 

007E 

02 

Blocknunmer des ersten Bearbeitungspaketes 

007F 

73 

?? 

Hinweis 

Das aufgeführte Beispiel (Inhalt unter der Jeueiligen Adresse) 

entspricht der Datei DRÜCK BSP auf der LocoScript-Systendiakette. 


Bild 2: Struktur von Block 0 “Seitenaufbau 
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Layout-Kenndaten 


Der zweite Block (Block 1 also, weil ja 
in der Computerbranche beim Zählen 
mit Null begonnen wird), dient der Ab¬ 
speicherung der Layout-Kenndaten 
(siehe Bild 3). Für “normale“ Texte 
sind hier das Basis-Layout und 5 weite¬ 
re Layouts mit je max. 10 TAB-Posi- 
tionen aufgeführt. Dazu kommen alle 
Daten, die im Layout-Menü eingege¬ 
ben werden können. Werden mehr als 
fünf Layouts bei der Textgestaltung 
eingegeben, so werden diese im dritten 
Block abgespeichert,andernfalls fängt 
dort endlich der eigentliche Text an. 
Doch halt — zunächst beginnt jedes Be¬ 
arbeitungspaket wieder mit weiteren 
Kenndaten (siehe Bild 4). Wozu eigent¬ 
lich? Die Daten sind doch in den ersten 
beiden Blöcken bzw. im Text selber 
schon vorhanden? Der Sinn ist leicht 
einzusehen. LocoScript ab Version 1.2 
gestattet auch den Ausdruck einzelner 
Seiten. Weil am Anfang des Bearbei¬ 
tungspaketes — also auch vor jeder Sei¬ 
te — das aktuelle Layout und die ak¬ 
tuellen Daten stehen, muß das Textsy¬ 
stem z.B. beim Einzelausdruck der 
letzten Seite nicht den ganzen Text 
durcharbeiten, um festzustellen, daß 
vielleicht auf Seite 3 'Kursivschrift’ 
eingegeben wurde. 

Ein Hinweis noch zum Layoutvor¬ 
spann! Wenn es sich um das unverän¬ 
derte Basis-Layout handelt, so ist bei 
den Detailangaben das höchstwertige 
Bit zusätzlich gesetzt. Die Werte sind 
um 80hex erhöht. Die Angabe 94hex in 


Adressen 0109 entspricht also 14hex, 
was wiederum bedeutet, daß der Aus¬ 
druck mit 12 Zeichen/Zoll erfolgen soll. 


Codierungszeichen 


Nach den ersten 13 Zeichen eines Bear¬ 
beitungsblocks beginnt dann endlich 
der eigentliche Text. Zunächst mit ei¬ 
nem Standard-TAB, der dann den lin¬ 
ken Rand festlegt. Die im Text einge¬ 
schobenen Codierungszeichen sind in 
den Bildern 5 bis 8 aufgelistet. Zu Be¬ 
ginn jeder Zeile wird mit Code 86 der 
noch verfügbare Platz in der Zeile an¬ 
gegeben. Das folgende Doppelbyte ist 
in der Reihenfolge vertauscht, als er¬ 
stes steht also das Lowerbyte, dann das 
Higherbyte. Die Angabe selber bezieht 
sich auf 1/240 Zoll (ca. 0,1 mm). Diese 
Feineinteilung ist erforderlich, wenn, 
wie bei LocoScript, der Ausdruck in 
Proportionalschrift und bündig erfol¬ 
gen kann. Mit der Verkürzung der Zei¬ 
le rechnet ebenfalls die TAB-Codie- 
rung. Ganz schön kompliziert wird es 
dann, wenn im Modus 'Bündig’ noch 
ein ALT-TAB dazukommt (wer ihn 
noch nicht kennt: Tabulator für einge¬ 
rückten Absatz) (siehe Bild 5, Code 
8B). 

Das Ende der Zeile — oder besser ge¬ 
sagt: der Zeilen Wechsel - wird durch 
den Code 88 angezeigt, wobei das fol¬ 
gende Byte die Art des Zeilenwechsels 
angibt. Innerhalb der Zeilen sind dann 
die eingebrachten Menüeingaben 
durch die Einfüge-Codes 82 bis 85 wie¬ 
derzufinden (Bild 
6). Es ist hier na¬ 
türlich nicht mög¬ 
lich, jede Codie¬ 
rung näher zu be¬ 
schreiben. Aus 
den Tabellen müß¬ 
te jedoch deren 
Bedeutung und 
Anwendung er¬ 
sichtlich sein. 
Darüber hinaus sei 
dem oder der In¬ 
teressierten der 
Rat gegeben, sich 
ruhig einmal eine 
LocoScript- Datei 
mit SID oder 
DUMP auflisten 
zu lassen und nä¬ 
her zu untersu¬ 
chen. Wie ein sol¬ 
ches SID-Listing 
aussieht, zeigt Bild 
10. Zum besseren 


Zurechtfinden sind einige Codierungen 
gekennzeichnet. Nach dem Studium 
dieses Artikels sollte es jedoch keine 
Mühe mehr machen, sich in diesem 
Codierungs-Dschungel zurechtzu¬ 
finden. 

Sollten dabei dann weitere Codierungs¬ 
sequenzen und deren Bedeutung ent¬ 
deckt werden — in den Tabellen sind ja 
noch einige Fragezeichen zu erkennen 
— so wäre der Autor über eine solche 
Information dankbar. 


Das Konvertierungsprogramm 


Nachdem die “Entschlüsselung“ von 
LocoScript vorgenommen wurde, wird 
jetzt ein PASCAL-Programm vorge¬ 
stellt, das den direkten Zugriff auf Da¬ 
teien im LocoScript- Format gestattet. 
Damit ist eine unmittelbare Ausgabe 
zur Schnittstelle CPS 8256 endlich 
möglich. Möglicherweise werden sich 
die BASIC-Programmierer unter Ihnen 
ein wenig über die Darbietung eines 
PASCAL-Programmes ärgern; diese 
Sprache bietet jedoch gegenüber BA¬ 
SIC gewaltige Geschwindigkeitsvor¬ 
teile, so daß diese Form der Program¬ 
merstellung gewählt wurde. Das Li- 
sting der Quellprogramme bietet die 
Möglichkeit der individuellen Pro¬ 
grammgestaltung, aber auch für Nicht- 
PASCAL-Spezialisten dürfte das Pro¬ 
gramm von Bedeutung sein, wird es 
doch auf der DATABOX-Diskette als 
direkt lauffahiges COM-File mitgelie¬ 
fert. 

Viele JOYCE-Besitzer, viele JOYCE- 
Besitzerinnen haben Ihren Rechner 
voll Optimismus mit einer seriellen 
Schnittstelle ausgestattet. Nun haben 
sie alle das gleiche Problem: Wie kön¬ 
nen Texte und Briefe über diese 
Schnittstelle, z.B. auf einen Typenrad¬ 
drucker, ausgegeben werden? Sicher, 
es geht, aber die umständliche, mühsa¬ 
me und zeitaufwendige Prozedur er¬ 
stickt jeden Wunsch nach Schönschrift¬ 
qualität. Käufliche Konvertierungspro¬ 
gramme weisen häufig Mängel auf; die 
Eigenentwicklung entsprechender Pro¬ 
gramme scheiterte bisher an fehlender 
Information über LocoScript. 

Nun, da die Struktur und die Codie¬ 
rung dieser Textverarbeitung bekannt 
ist, lassen sich ohne weiteres Program¬ 
me erstellen, die diesen Dateityp bear¬ 
beiten können. Im Prinzip sind dazu 
alle Programmsprachen mit ausrei¬ 
chender Befehlspalette geeignet. Hier 
wurde diesmal nicht BASIC, sondern 
Turbo Pascal eingesetzt. Bei einem 


Adresse 

Inhalt 

Bedeutung 

0080 

14 

Schriftart, Zeichen/Zoll 


0081 

48 

Zeilen/Zoll 


0082 

02 

Zeilenabstand 


0083 

00 

Kursiv/Bündig (siehe Bild 8) 


0084 

0A 

Linker Band 


0085 

52 

Rechter Rand 


0086 

06 

Anzahl der TABs 


0087 

00 

Anzahl der Rechts-TABs 


0088 

00 

Anzahl der Mitte-TABs 


0089 

00 

Anzahl der Dezimal-TABs 


Ö08A 

0E 

Position TAB 1 

Basis-Layout 

008B 

12 

Position TAB 2 


008C 

16 

Position TAB 3 


008D 

1A 

Position TAB 4 


008E 

IE 

Position TAB 5 


008F 

3C 

Position TAB 6 


0090 

00 

Position TAB 7 


0091 

00 

Position TAB 8 


0092 

00 

Position TAB 9 


0093 

00 

Position TAB 10 


Es folgen die Angaben über die weiteren Layouts Diese haben die 

gleiche Datenstruktur wie das Bmis-[.ayout.. 

Für die Grundversion mit 5 Layouts gelten folgende Bereiche: 

Layout 1 : 0094 bis 00A7 

Iaycut 2 : OOA8 bis 00H8 

Isyout 3 : UOBC bis 00CF 

Layout 4 : 0OD0 bis 00R3 

layout 5 : ÜUE4 bis 0UF7 


Bild 3: Struktur von Block I “Layout-Information 
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ierart umfangreichen Programmpaket 
rietet diese Sprache deutliche Vorteile: 

- hohe Bearbeitungsgeschwindigkeit 

- Befehlssatz für Blockbearbeitung 

- übersichtlicher Programmaufbau 

- Ansteuerung der SIO ohne Umwege 

- direkt CP/M-lauffähig (COM-File) 
Besonders die beiden letzten Aspekte 
gaben den Ausschlag für die Program¬ 
mierung in PASCAL. Wie DIR, TYPE 
oder SHOW wird das File LOCOCON 
im CP/M-Modus durch Eingabe des 
Vornamens’ LOCOCON (RETURN) 
gestartet und ist somit direkt einsatzbe¬ 
reit. 


Die Aufgaben 


Zunächst sollten die Aufgaben und Fä¬ 
higkeiten des Programms genannt wer¬ 
den. Hauptaufgabe ist natürlich die 
Umwandlung von LocoScript- Dateien 
in ASClI-Dateien. Es soll jedoch eini¬ 
ges mehr geleistet werden, als dies die 
Option “ASCII- Datei erstellen“ im 
f7-Modus bietet. Das wäre dann: 

- Wahlweise Ausgabe der LocoScript- 
Datei auf Bildschirm, JOYCE- 
Drucker, zur seriellen SIO oder zur 
parallelen Centronics-Schnittstelle 
auf Fremddrucker 


— Umwandlung der deutschen Umlau¬ 
te in ASCII- oder LocoScript-Co- 
dierung 

— Herausnahme der deutschen Um¬ 
laute und Einfügen von ae, ue, oe, 
ss usw. 

— Beibehaltung oder Abschaltung der 
verschiedenen Schrift- und Hervor¬ 
hebungsmodi, wie Kursiv, Unter¬ 
streichen, Doppeldruck u.ä. 

— Wahlweise Unterdrückung des lin¬ 
ken Randes 

— Bearbeitung aller LocoScript- 
Gruppen (Userbereiche) 

— Aufbereitung von ASCII-Dateien 
zum Einbinden in LocoScript-Texte 

— Anpassung an unterschiedliche 
Druckerfabrikate (zwei Drucker¬ 
formate können installiert und dann 
wahlweise angewählt werden). 

Dies klingt sicherlich schon gut, doch 

korrekterweise soll sofort auch genannt 

werden, was das Programm nicht zu 

leisten vermag: 

— kein Ausdruck des Fuß- und Kopf- 
teiltextes bei der Seitennumerierung 

— kein erweiterter Zeichensatz (mit 
Tastenkombination mit EXTRA 
oder ALT) 

— keine Breitschrift 

— Bearbeitung von max. 10 Layouts 

— Bündigausdruck nicht möglich. 


Grund für diese Einschränkung ist ein¬ 
erseits eine selbst auferlegte Beschrän¬ 
kung des Programmumfangs, anderer¬ 
seits ist dies systembedingt. Mit 
Fremddruckern lassen sich eben nicht 
alle Funktionen — wie z.B. der erwei¬ 
terte LocoScript-Zeichensatz — aus¬ 
geben. 

Das Programm ist recht umfangreich. 
Es wurde jedoch Wert auf eine über¬ 
sichtliche Darstellung gelegt, um den 
Programmablauf nachvollziehen zu 
können, und um ggf. selbsttätig Ände¬ 
rungen oder Erweiterungen vorneh¬ 
men zu können. 


Das Programm 


Anders als BASIC bietet PASCAL das 
Arbeiten mit Einzelprozeduren, die mit 
“sprechenden“ Namen versehen wer¬ 
den können. Dies wurde hier prakti¬ 
ziert, ebenso der Versuch, bei der Na¬ 
mensgebung der Variablen deren 
Funktion zu kennzeichnen. Deshalb 
kann hier auf eine detailliertere Be¬ 
schreibung des Programms verzichtet 
werden. Das Programm sollte sich - 
nach den folgenden Erläuterungen und 
bei etwas PASCAL-Grundwissen - 
selbst erklären. Bei PASCAL handelt 


Adresse 

Inhalt 

Bedeutung 

0100 

09 

Blockanzahl des Bearbeitungspaketes 

0101 

00 



0102 

81 

Codierung für Seitenanfang und -ende 

0103 

00 


Codierung bei sehr als 17 Blöcken (?) 

0104 

00 



0105 

00 



0106 

00 



0107 

00 

Aktuelles Layout 

oioe 

0A 

Aktueller Linker Rand 

0109 

94 

Zeichen/Zoll. Schriftart 

010A 

ca 

Zeilen/Zoll 

010B 

82 

Zeilenabstand 

010C 

00 

Hervorhebecode 

010D 

89 


Standard-TAB 

010E 

00 



010F 

0A 



0110 

ca 



0111 

00 



0112 

88 

j Seitenanfangscode 

0113 

08 

0114 

86 


Freier Zeilenplatz 

0115 

DO 



0116 

02 



0117 

85 


Schriftartwechsel-Code 

0118 

05 



0119 

58 



011A 

53 


S" Beginn des eigentlichen Textes 

011B 

63 


c" 

0528 

BA 


ß" 

0529 

2E 



052A 

88 

j Zeilenwechsel durch Absatz 

052B 

08 

052C 

80 

Ende des eigentlichen Textes 

052D 

00 


Auffüllen mit Nullen 

057D 

00 



067E 

09 

Blockanzahl des Bearbeitungspaketes 

057F 

00 

Ende des Bearbeitungspaketes (hier auch Seitenende) 

Hinweis: 

Handelt es sich in 0107 um das Basis-Layout (00). so 
sind die dazugehörigen Daten in 0109-010C um 80hex erhöht 


d 4: Struktur eines “ Bearbeitungspaketes“ (hier Block 2 bis Block 10 


Zeilenaecbseli 

88 01 normal 

02 durch Abratz 

00 am Anfang der Bearb -Einheit. 


g-ceier .Zeilenplata. 


86 bb aa 



Freier Zeilenplatz in 1/24C Zoll 


39 00 xx bb aa 
04 xx bb aa 
(15 xx bb aa 
06 xx bb aa 
07 xx bb aa 



Standard-TAB (Linker Rand setzen) 
TAB 

Alt-TAB 

Zeile zentrieren 
Zeile rechtsbündig 

Verkürzung der Zeile in 1/240 Zoll 
Abstand vom linken Rand 


Zei )e h 'intrig : 


8A 01 ee ?? dd cc 

02 ee 7? dd cc 

08 ee ?? dd cc 



normale Zeile 

erste Zeile des Absatzes 

erste Zeile des Bearbeitungspaketes 

Breite der eingefügten Leerstellen in 1/240 Zoll 
Anzahl der eingefügten Leerstellen 


Zaile bündig mit. ALT-Tabulatar . 


ÖB 05 xx bb aa ee 00 dd oc 



Breite der eingefügten Leerstellen 
Anzahl der elngefügten Leerstellen 
Verkürzung der Zeile ln 1/240 Zoll 
Position Linker Rand 


Bild 5: LocoScript-Codes für Zeilenformatierung 
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80 

Ende des Bearbeitungspaketes 

81 

normales Leerzeichen 

82 00 

letzte Zeile 

01 

Seitenwechselcode 

02 

Bindestrich 

03 

Soft-Space 

04 

diese Seitennumer 

05 

nächste Seitennuircner 

83 00 

Fettschrift ein 

01 

Wort Unterstreichen ein 

02 

Voll Unterstreichen ein 

03 

Inverse Darstellung ein 

04 

Doppelt ein 

05 

Kursiv ein 

06 

Hochstellen ein 

07 

Tiefstellen ein 

84 00 

Fettschrift aus 

01 

Wort Unterstreichen aus 

02 

Voll Unterstreichen aus 

03 

Inverse Darstellung aus 

04 

Doppelt aus 

05 

Kursiv aus 

06 

Hochstellen aus 

07 

Tiefstellen aus 

85 00 

00 Soft-Trenn-Vorschlag 

00 

01 Soft-Trenn-Zeichen 

02 

nn Layout Nr. nn einfügen 

03 

nn Zeilen/Zoll 

04 

nn Zeilenabstand 

05 

zz Schriftart, Zeichen/Zoll 

06 

nn Zeilenpaket, unterhalb 

07 

nn Zeilenpaket, oberhalb 


Bild 6: LocoScript-Einfügecodes 


es sich um eine Compilersprache, d.h. 
aus der Quelldatei (Programm-Text) 
wird mit einem sogenannten Compiler 
ein direkt lauffähiges Maschinenpro¬ 
gramm erzeugt. Bei Turbo Pascal kann 
dies im Arbeitsspeicher erfolgen, wo¬ 
bei dann aber sowohl das Quellpro¬ 
gramm, als auch das Compilat dort un¬ 
terzubringen ist. Beim Umfang des 
vorliegenden Programms reicht dieser 
Platz nicht aus. So wird hier mit drei 
Include-Dateien gearbeitet. Nebenef¬ 
fekt: Auch der Frust beim Abtippen 
hält sich damit in Grenzen. 


LOCOCON. PAS 


Das eigentliche Hauptprogramm ’LO¬ 
COCON. PAS’ besteht so im wesentli- 




85 05 OU 

PrcpDrtlonalschrift 

OB 

17 ZBichan/Zoll 

10 

15 ZelcherVZoll 

14 

12 Zalchen/Zoll 

1B 

10 Zaiolwn/ZoU 

Bel doppelter Breite wird Bit 6 gasatzt (40hex addiert). 

So bedeutet 85 05 54 : 12 Zeichen/Zoll in doiyolter Breite 

05 04 00 

Zeilenahßtfif*3 0 

01 

Zeilanabstand 1/2 

02 

Zeilanahstard 1 

06 

Zellenabstand 3 

Zolim pro 

Zoll: 

85 03 36 


48 

ß Zeilen pro Zoll 


Bild 7: LocoScript-Codes für Schrift und 
Zeilenabstand 


chen nur aus der Variablenliste, den 
Aufrufen der INC.-Files und aus dem 
Ausgabe- und Hauptmenü. Die Varia¬ 
blenliste ist der Aufgabe entsprechend 
lang, als Felder sind definiert: ein Da¬ 
tenpuffer (17 LocoScriptblöcke groß), 
eine Layout-Tabelle, eine Code-Tabel¬ 
le für die Druckersteuerzeichen, und 
ein Directory-Feld für 64 Directory- 
Einträge. Zu den Variablen noch ein 
Hinweis: Bestehen diese aus einem ein¬ 
zelnen Kleinbuchstaben, so handelt es 
sich um sogenannte temporäre Varia¬ 
blen. Diese werden meist nur in einer 
Prozedur verwendet und haben dort 
nur eine untergeordnete Aufgabe (zäh¬ 
len, sortieren o.ä.). Das Hauptmenü 
(siehe auch Bildschirmcopy Bild 11) 
bietet sechs Auswahlmöglichkeiten an. 
Mit “L“ wird das Konvertierungspro¬ 
gramm für LocoScript-Dateien gestar¬ 
tet. Zunächst erfolgt dann die Lauf- 
werksanwahl und das Einlesen des Dis¬ 
ketten-Directories, falls dies nicht 
schon vorher durch die An wähl “D“ 
vorgenommen wurde. Auf dem Bild¬ 
schirm erscheinen die Dateinamen mit 
vorangestellten Usemummern. Letzte¬ 
re entsprechen — wie bereits zuvor be¬ 
schrieben - den LocoScript- Gruppen 
0 bis 7. Mit Hilfe der Cursor-Tasten 
kann die gewünschte Datei angewählt 
und übernommen werden. Es folgt das 
Ausgabemenü mit der Frage, ob die 
Ausgabe auf dem Bildschirm, zum 
JOYCE-Drucker, zur seriellen oder 
parallelen Schnittstelle erfolgen, oder 
ob die LocoScript-Datei als reine 
ASCII-Datei auf Diskette gespeichert 
werden soll. So ist es möglich, sich zu¬ 
nächst einmal die Datei auf dem Bild¬ 
schirm anzuschauen, um sie anschlie¬ 
ßend über die Schnittstelle auf den ex¬ 
ternen Drucker zu geben. 


Doch zurück zum Hauptmenü. Ebenso 
wie LocoScript-Dateien lassen sich 
auch ASCil-Files ausdrucken, anzei- 
gen und speichern. Auch hierbei wer¬ 
den die deutschen Umlaute je nach 
Wunsch umgewandelt. Sollte es einmal 
generelle Schwierigkeiten mit den Um¬ 
lauten geben: (A)SCII-Datei bearbei¬ 
ten und im Konvertierungsmenü 
(O)hne anwählen, der Text ist von Um¬ 
lauten befreit. Aus Müller ist Mueller 
geworden. Ebenso erleichtert dieser 
Programmteil das Einbinden von 
ASCII-Dateien in LocoScript-Texte. 
Das umständliche Suche-und-Ersetze- 
Hin-und-Her (besser gesagt Bild- 
schirm-Rauf-und-Runter) kann durch 
Umwandlung der ASCII-Umlaute in 
LocoScript-Umlaute entfallen. Damit 
wäre bereits das Konvertierungsmenü 
(Bild 12) angesprochen. In ihm kann 


neben der Wahl der Umlaute auch an¬ 
gegeben werden, ob mit dem im Lay¬ 
out angegebenen linken Rand ausge¬ 
druckt werden soll. Für manche 
Drucker ist es günstiger, den Druck¬ 
vorgang am Zeilenanfang zu beginnen. 
Ein Typenraddrucker wird so z.B. 
deutlich schneller. Auch bei Schriftart¬ 
wechsel innerhalb des Textes ist cs 
sinnvoll, ohne linken Rand zu arbeiten, 
um einen Randversatz zu vermeiden. 
Mit “F“ werden die voreingestellten 
Druckerformate für angeschlossene 
Fremddrucker und den JOYCE-Sy- 
stemdrucker angewählt. Hierbei gibt es 
eine weitere Besonderheit, die andere 
Konvertierungsprogramme nicht besit¬ 
zen: Das Abspeichern von zwei unter¬ 
schiedlichen Drucker-Steuerzeichen¬ 
formaten. Es muß nicht jedesmal bei 
Druckerwechsel die entsprechende 
Steuersequenz per Programm geändert 
werden: An wähl im Formatmenü ge¬ 
nügt. Hinzu kommt noch das Format 0, 
die Möglichkeit des reinen Textaus¬ 
druckes, also ohne Unterstreichen, 
Schriftartwechsel, Doppeldruck usw.. 
Mit “S“ schließlich lassen sich dann 
die angesprochenen Steuer-, oder wie 
sie auch genannt werden, Escape-Se- 
quenzen zur Druckeranpassung einge¬ 
ben. Auch hier eine Besonderheit: Ein¬ 
gegebene Änderungen der Steuerzei¬ 
chen-Sequenzen werden am Programm¬ 
ende in einer Formatdatei abge¬ 
speichert und stehen so immer zur Ver¬ 
fügung. 

In Bild 13 sind die Sequenzen für den 
JOYCE-Drucker und für einen Epson- 
kompatiblen Drucker als Hardcopy des 
Eingabemenüs einmal beispielhaft auf¬ 
gezeigt. Welche Steuersequenzen letzt¬ 
endlich einzugeben sind, hängt vom 
Druckertyp ab und muß dem jeweili¬ 
gen Bedienerhandbuch entnommen 
werden. 


LOCOl.INC 


Der Kenner sieht es sofort! Hier han¬ 
delt es sich ausschließlich um Routine¬ 
prozeduren zur besseren Gestaltung 
des Bildschirms. 

Ein Tip: Auch bei der Eigenentwick¬ 
lung von Programmen können diese 
wieder verwendet werden. So auch die 
Prozedur < Kasten > ,die ein Rechteck 
von der Größe x mal y an die Position 
b, h des Bildschirms bringt und die 
Prozedur < Menübild >, die die ihr 
übergebenen Textzeilen (Titel und Z0 
bis Z7) auf dem Bildschirm in entspre¬ 
chender Aufteilung darstellt. 
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Joyce Programmsammlungen 

Hochwertige Software zu Niedrigpreisen finden JOYCE-Besitzer jetzt im Rahmen einer Programm¬ 
sammlung in der Angebotspalette des DMV Verlages. 

Jede Ausgabe aus dieser Reihe enthält eines oder zwei Programme, die aus verschiedenen Anwen¬ 
dungsgebieten kommen. Diese Serie erscheint in unregelmäßiger Reihenfolge und wird als komplet¬ 
tes Programmpaket mit 3“-Diskette und Bedienungsanleitung ausgeliefert. 




Joyce-Programmsammlung VOL. III 
Vol. III enthält: 


1. Feld-Tab 

Ein mehrteiliges BAS IC-Programm zum milli¬ 
metergenauen Ausfüllen von Tabellen, Vor¬ 
drucken und Formularen aller Art. Feld-Tab ist 
voll menügesteuert und bietet die Anwahl der 
einzelnen Funktionen per Balkencursor und 
Menüfenstern, wie unter LocoScript gewohnt. 
Geben Sie Seitenlange, Zeilenabstand und Ta¬ 
bulatoren in Millimetern ein, bestimmen Sie 
Schrittweite, Schriftart und Text. Text kann mit 
LocoScript erstellt werden und nach Umwand¬ 
lung in eine ASCII-Datei in Feld-Tab eingelesen 
werden. Weitere ASCII-Editoren können eben¬ 
so verwendet werden wie der komfortable pro¬ 
gramminterne Seiteneditor. Ein unentbehrli¬ 
ches Werkzeug! 
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JOYCE-Programmsammlung VOL. III ist auf zwei Disketten inkl. 
Verlag zum Preis von 69,- DM erhältlich 


2. Gsxplot 

Ein Grafikpaket für Statistiken, Geschäftsprä¬ 
sentationen und viele andere grafische An¬ 
wendungen! Über ein Menü sind folgende 
Funktionen wählbar: 

- Balkendiagramme 

- Kurvendiagramme 

- Strichgrafik 

- Punktediagramme 

- Textgrafik 

Ein Hilfsprogramm erläutert Ihnen während 
der Arbeit mit Gsxplot die wichtigsten Funktio¬ 
nen. Alle erstellten Grafiken können sowohl am 
Bildschirm als auch auf dem Drucker darge¬ 
stellt werden. Gsxplot ist ein Programmpaket 
der oberen Leistungsklasse und braucht den 
Vergleich mit wesentlich teurerer Software 
nicht zu scheuen! 

Bedienungsanleitung ab 4. Januar beim 




VOL. I und VOL. II weiterhin erhältlich! 


1. Der Character Designer VOL. I 

Funktion: Komfortable Erstellung eigener Zeichensätze auf PCW 8256/8512 und deren Darstel¬ 
lung am Bildschirm! Ausdruck von ASCII-Files in diesem Zeichensatz unter CP/M Plus. 
Leistungsumtang: CD.COM ist der Character-Designer, der Editierung oder Neuerstel¬ 
lung von Zeichensätzen und deren Speicherung erlaubt. Zeichensätze können als COM-File ab¬ 
gespeichert werden, d h. auch unter CP/M aufgerufen und somit aktiviert werden. CD-PRINT 
druckt vortormatierte ASCII-Texte auf dem Joyce-Drucker oder anderen Druckern in dem ge¬ 
wünschten Zeichensatz aus. 

CHAZY, ORIGINAL. LOCCHAR und SCRIPT sind mltgeheferte Zeichensätze. SETUP.COM er¬ 
laubt als Zugabe die Vorwahl einiger Systemparameter. z.B. die der seriellen Schnittstelle, der Ta- 
staturqeschwindigkeit und der Floppy-Steprale. 

2. MGX 

Funktion: Graphische Darstellung von mathematischen Funktionen und beliebigen Messreihen 
aut Bildschirm oder im Großformat aut dem Drucker. 

Lei8tungsumfang: Neben den arithmetischen Grundfunktionen sind auch weitere Funktionen 
darstellbar, die z.B unter Mallard-Basic nicht zur Verfügung gestellt werden. Es können mehre¬ 
re Funktionen und Meßreihen {diese wiederum mit mehreren Meßwerten gleichzeitig dargestellt 
werden). Die X- und Y-Bereiche können manuell oder automatisch bestimmt werden, ebenso ist 
die Darstellung der Graphen mit X/Y-Gltter, X oder Y-Gitter oder ohne Gitter möglich. 


3“ Diskette 


59,- DM* 

■ unverbind iche Pre'semplehljng 


Alle zuge- 
JETSAM- 


SUPERdat VOL. II 

Eine universelle Dateiverwaltung für PCW 8256/8512 zur Erstellung eigener Dateien. Alle zui 
hörigen Programme sind in Mallard-Basic geschrieben und verwenden dessen 
Funktionen zur relativen Verwaltung der Datensätze auf Diskette. 

Leistungsumfang: MASKE ist das Vorprogramm, mit dem Sie die Feldnamen- und Längen so¬ 
wie die Länge des Suchbegrifts voreinsteilen können. 

SUPERdat ist das Hauptprogramm, welches die Daten der gewünschten Datei verwaltet Neben 
der Eingabe von Daten ln die Maske sind mehrere Sucharten, so z.B auch Jokersuchen mög¬ 
lich Jede Datei kann max. achl Felder enthalten, wovon jedes max. 40 Zeichen enthalten darf 
nie Gesamtlänge eines Datensatzes darf 255 Zeichen betragen. 

SUPERtex Dieses Programm stellt eine Rundschreib- (Mailmerge-)funktion für SUPERdat zur 
Verfügung, ln einen in Lautwerk M: befindlichen ASCII-Text (z.B. mit RPED erstellt) werden au¬ 
tomatisch vom Anwender vorausgewählte beliebige Einträge aus beliebigen SUPERdat-Dateien 
an beliebiger Stelle eingetügt; dieser Text wird ausgedruckt und die nächsten ausgewählten Ein¬ 
träge werden in den Text eingetügt. Weiterhin stellt SUPERtex auch eine Schnittstelle zu LocoSc¬ 
ript dar: so können 30 beliebige Datensätze in eine für LocoScript lesbare Datei umgewandelt 
werden 

SUPERcal Der Taschenrechner zu SUPERdat. Dieser bietel neben den Grundrechenarten auch 
Winkelfunktionen, quadratische- und Prozentfunktionen. Eine Klammerebene und Memory- 
Funktionen vervollständigen das Leistungsangebot dieses Programms. 
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In Adresse 0065 wird die Bildschirm-Darstellung in folgender 
codierter Form abgespeichert: 

Bit 0 (hex 1) - mit Codes 

1 (hex 2) = mit Linealen 

2 (hex 4) = mit Leerstellen 

3 (hex 8) = mit Zwischenräumen 

4 (hex 10) = ohne Indikatoren 

Beispiel: 0C hex = Anzeige mit. Leerstellen, Zwischenräumen und 
Indikatoren 


Codierung des ttervcrhebaräcdus 

Zu Beginn eines Bearbeitungspaketes wird der Hervorhebe-Modus 
im Bit 0C abgespeichert. Er trägt die folgende Codierung: 

Bit 0 (hex 1) = Fettdruck 

Bit 2 (hex 4) = Wort unterstreichen 

Bit 1+2 (hex 6) = Voll unterstreichen 

Bit 4 (hex 10) = Doppelt 

Bit 5 (hex 20) = Kursiv 

Bit 6 (hex 40) = Hochstellen 

Bit 7 (hex 80) = Tiefstellen 

Beispiel: 26 hex bedeutet Kursivschrift mit Unterstreichen 

Hinweis ; In der Layout-Tabelle (Block 2 / 0083) wird beim 
Kursiv/Bilndig-Eintrag ebenfalls diese Codierung verwendet 


Codierung über Seitenanfang und Seitenende 

Byte 2 des Bearbeitungspaketes gibt an, ob sich der Seiten¬ 
anfang und/oder das Seitenende innerhalb des Bearbeitungspaketes 
befindet: 

Bit 1 gesetzt (hex 1) - Seitenanfang im Bearbeitungspaket 
Bit 7 gesetzt (hex 80) - Seitenende im Bearbeiturgspaket 

Beispiel: Bei Seiten mit normaler Dichte findet man : 81hex; 
d h Anfang und Ende der Seite liegt innerhalb des maximal 
17 Blocks großen Bearbeitungspaketes 


Bild ö: Anzeige-, Hervorhebungs- und Anfang/Ende-Codierung 


LOC02.INC 


Auch in dieser Include-Datei sind 
Hilfsprogramme untergebracht. Zu¬ 
nächst die beiden Prozeduren < For¬ 
matdatei Einlesen > und <Formatda- 
teiSpeichem >. Mit ihnen wird die 
Formatdatei “LOCOCON.FRM“ ein¬ 
gelesen, bzw. nach erfolgter Änderung 
mit den aktuellen Daten wieder zurück- 
gespeichert. In LOCOCON.FRM wer¬ 
den sowohl die aktuellen Steuersequen¬ 
zen für Format 0 bis Format 3 gespei¬ 
chert, als auch die Information, welches 
Format für SIO oder JOYCE-Drucker 
im ’Formatmenü’ gewählt wurde. 


entsprechenden 
Steuerzeichen für 
alle Formate ein¬ 
gegeben werden. 
Dies gilt auch für 
das Format 0, das 
beim ersten Mal 
mit Nullen zu fül¬ 
len ist. Bei ord¬ 
nungsgemäßem 
Beenden des Pro¬ 
gramms wird dann 
eine neue Format¬ 
datei erstellt, die 
ab jetzt zur Verfü¬ 
gung steht. 

Also nicht verges¬ 
sen: Beim Kopie¬ 
ren des Program¬ 
mes LOCOCON 
.COM immer die 
Formatdatei LO¬ 
COCON. 

FRM mit auf die 
neue Diskette über¬ 
tragen! 

Interessant und vor 
allen Dingen nütz¬ 
lich sind die bei¬ 
den Prozeduren 
< Direktoryle- 
sen > und < QuelldateinameHolen >. 
Ähnlich wie bei LocoScript muß nicht 
mehr der Dateiname eingetippt werden 
(mit den obligatorischen Tippfehlern), 
sondern das Directory wird angezeigt 
und mit Hilfe der Cursortasten das ge¬ 
wünschte Textfile angewählt. Als Bei¬ 
gabe sozusagen ist den Dateinamen die 
zugehörige Usergruppe vorangestellt. 
Ein Kopieren der Dateien nach Gruppe 
0, das ja bereits in LocoScript vorge¬ 
nommen werden muß, entfällt also. Sy¬ 
stemdateien, GRP-Dateien und Datei¬ 
en der Usergruppen 8 bis 15 (also die 
LocoScript-Transdateien) werden - 
der besseren Übersicht wegen — aus¬ 
geblendet. 


Jungfernstart 

Bei derartigen zusätzlichen einzulesen¬ 
den Datenfiles besteht immer die 
Schwierigkeit des ersten Programm¬ 
starts. Das Programm erwartet ja eine 
Datei, die noch nicht erstellt wurde und 
meldet daraufhin “Fehler“. Hier wur¬ 
de das Problem folgendermaßen ge¬ 
löst: Durch Drücken der I-Tasten wird 
das Fehlen der Datei (i)gnoriert. Das 
Programm läuft weiter und im Menü 
< Steuerzeichen Aendern > können, 
bzw. müssen dann anschließend die 


Umlaute 


Das Problem mit den deutschen Um¬ 
lauten in LocoScript ist bekannt, die 
gewünschte Umwandlung übernehmen 
die drei Funktionen: < UmlautASC >, 
< UmlautLOC > und < OhneUm- 
laut>. Das zu wandelnde Zeichen 
wird der Funktion als Parameter über¬ 
geben, diese gibt dann das konvertierte 
Zeichen zurück. Wie problemlos das 
Bearbeiten von ASCII-Dateien ist, 
kann man schon an dem geringen Um¬ 
fang der Prozedur < ASCII-DateiBe- 
arbeiten> erkennen. Zumal, wenn 


man sie mit LOC03.INC vergleicht, 
die sich ausschließlich mit der Bearbei¬ 
tung von LocoScript befaßt. Mit wenig 
Programmieraufwand werden also AS¬ 
CH-Dateien blockweise eingelesen, die 
Umlaute konvertiert und die Daten 
zum Bildschirm, dem Drucker oder zur 
SIO geleitet. 


LOC03.INC 


Endlich geht’s zur Sache, sprich zu Lo¬ 
coScript. Zunächst einmal stellt die 
vom Hauptprogramm aufgerufene 
Funktion < Loco Vorhanden > fest, ob 
es sich bei der angewählten Datei über¬ 
haupt um eine LocoScript-Datei han¬ 
delt. Es wird geprüft, ob “JOY“ vor¬ 
handen ist und ob es sich bei der Infor¬ 
mation in 007E um die Startblockanga¬ 
be (Blocknummer des ersten Bearbei¬ 
tungspaketes) handelt. Trifft dies zu, 
so werden Seitennummern und Textin¬ 
fo auf dem Bildschirm angezeigt, an¬ 
schließend die Layout-Tabellen einge¬ 
lesen und gespeichert. 


LocoDateiBearbeiten 


Eingebettet in diese Prozedur sind wei¬ 
tere neun Einzelprozeduren, die nur in¬ 
nerhalb von < LocodateiBearbeiten > 
aufgerufen werden. Diese Methode 
spart Speicherplatz bei den Variablen. 
Die Befehlszeilen für < LocodateiBe¬ 
arbeiten > stehen demnach am Schluß 
dieses INC-Files. Von dort werden die 
Einzelprozeduren aufgerufen. Zu¬ 
nächst < SeitennummerHolen >, wo¬ 
durch der Ausdruck und auch das Spei- 
chern(!) einzelner Seiten der 
LocoScript- Datei ermöglicht wird. 

Nach dem Öffnen der Quelldatei wer¬ 
den zunächst die Info-Blöcke “blind 
eingelesen“ und, falls nur eine teilwei¬ 
se Bearbeitung gewünscht wird, die 
nicht erforderlichen Seiten ebenfalls 
übersprungen — sprich ins Leere ge¬ 
speichert. Wie Eingangs beschrieben, 
sind die aktuellen Layout- und Schrift¬ 
daten zu Beginn eines jeden Bearbei¬ 
tungsblockes abgelegt. Diese Informa¬ 
tionen werden mit der Prozedur < Sei- 


Zeichen 

ASCII 

LocoScript 


dez 

hex 

dez 

hex 

Ä 

91 

$5B 

208 

$D0 

Ö 

92 

$5C 

211 

$D3 

Ü 

93 

$5D 

212 

$1)4 

ä 

123 

$7B 

240 

$F0 

Ö 

124 

$7C 

243 

$F3 

ü 

125 

$YD 

244 

$F4 

ß 

126 

$7E 

245 

$F5 


Bikl 9: Umlaute im German-ASCII- und Loco- 
Script-Code 
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Bild 10: Eine mit SID aufgelistete Beispieldatei (Achtung! Adressen-Offset bei SID: WOhex) 


tenanfang > eingelesen und ggf. an das 
Ausgabegerät weitergeleitet. So wird 
bereits zu diesem Zeitpunkt die Esca- 
pe-Sequenz für beispielsweise 12 Zei¬ 
chen pro Zoll und Kursivschrift an den 
Drucker ausgegeben. Je nachdem, ob 
sich der Seitenanfang und/oder das Sei¬ 
tenende im aktuellen Bearbeitungspa¬ 
ket befinden, werden StartFlag und/ 
oder EndFlag gesetzt. Kriterium dafür 
ist der Inhalt der Adresse 0002 des Be¬ 
arbeitungspaketes. Ab Adresse 000D 
(dez. 13) beginnt der eigentliche Text. 
Mit einer REPEAT-An Weisung wird 
nun Zeichen für Zeichen verglichen, 
evtl, konvertiert und ausgegeben. Hier 
zeigt sich die Stärke einer Compiler¬ 
sprache. Für die Einzelzeichenbearbei¬ 
tung einer normalen Textseite (ca. 2 
kByte) werden etwa 0,5 Sekunden be- 



Bild 11: Das Hauptmenü von LOCOCON. COM 



Bild 12 ; Das Konvertierungsmenü 


nötigt. In BASIC würde dies — je nach 
Dialekt — erheblich länger dauern und 
bei mehreren Textseiten im Minuten¬ 
bereich liegen. Zur Verringerung 
der Bearbeitungsgeschwindigkeit dient 
auch die Aufteilung der Steuerzeichen¬ 
behandlung in zwei Prozeduren: 
< Mitsteuerzeichen > und < Ohne- 
Steuerzeichen >. Letztere wird durch 
Fehlen der bedingten Anweisungen 
sichtbar kürzer und damit eben 
schneller. 

Noch ein Wort zur Ausgabemethode. 
Die bearbeiteten Zeichen werden nicht 
direkt zur Zieldatei gegeben (also zum 
Bildschirm, Drucker, Schnittstelle 
oder zu einer echten Diskettendatei). 
Anders als bei der ASCü-Dateibear- 
beitung wird hier erst immer eine kom¬ 
plette Zeile zusammengesetzt, die dann 
nach Erkennung des Zeilenende-Codes 
88hex komplett ausgegeben wird. Dies 
ist für die Tabulator- und Unterstrei¬ 
chungsfunktion erforderlich. Dazu ein 
Beispiel: Wenn über das Zeilenende 
hinaus unterstrichen werden soll, so 
muß die Zeile um das letzte Leerzei¬ 
chen gekürzt werden, sonst wird ein 
Zeichen zuviel unterstrichen. 


Datei zu lang? 

Nein, die Struktur des Programmes er¬ 
laubt die Bearbeitung von LocoScript- 
Dateien beliebiger Länge. Mit einer 
Einschränkung: Bei Dateien, die nicht 
in der Gruppe 0 stehen und größer als 
16 kByles sind, ist ein Abspeichern auf 
Diskette nicht möglich. Ursache ist die 
Diskverwaltung von CP/M, die ab 16 
KByte einen weiteren Directory- Ein¬ 
trag vornimmt. In der Directory- An¬ 


zeige der Dateianwahl ist dies übrigens 
durch Doppelnennung gut zu erken¬ 
nen. Beim Zusammentreffen dieser 
drei Kriterien gibt es eine Fehlermel¬ 
dung mit dem Hinweis, diese Datei zu¬ 
nächst in LocoScript nach Gruppe 0 
(User 0) zu kopieren. Dann wieder 
konvertieren ohne Einschränkung. 


Gute Aussichten 


Wie schnell das Konvertierungspro¬ 
gramm arbeitet, läßt sich gut bei der 
Bildschirmausgabe feststellen. Dabei 
geht es dann schon fast zu schnell, je¬ 
denfalls dann, wenn man den Text le¬ 
sen oder kontrollieren möchte. Ein 
Tip: Die Anzeige kann - wie in CP/M 
üblich - mit ALT-S (f5/f6) angehalten 
und mit ALT-Q (f3/f4) wieder gestartet 
werden. Es würde sicher den Rahmen 
dieses Artikels sprengen, noch detail¬ 
liertere Erläuterungen der einzelnen 
Pascal-Prozeduren und die vorgenom¬ 
menen Einbindungen der Codierungs¬ 
sequenzen darzulegen. Hier ist der 
Spürsinn des Computerfreaks gefor¬ 
dert. Das Programm ist umfangreich, 
relativ komfortabel, aber sicherlich 
noch erweiterbar und — was auch der 
Sinn des Quellcode-Listings sein sollte 
- auf die jeweiligen Bedürfnisse des 
Anwenders anpaßbar. Möchte jemand 
beispielsweise mit Endlosdruck arbei¬ 
ten, eine kleine Änderung in der Proze¬ 
dur < Papier Einlegen > macht’ s mög¬ 
lich. Sollen Kopf- und Fußzeilen eben¬ 
falls ausgedruckt werden, mit etwas 
Programmieraufwand ist dies jetzt — 
dank der Entschlüsselung von Loco¬ 
Script — möglich. 

(Wolfgang Otternberg) 

Hinweis: 

Das hier vorgestellie Programm ist för den privaten Ge¬ 
brauch bestimmt Eine kommerzielle Nutzung bedarf der 
Genehmigung durch den Verlag. 




Bild 13: Steuarseqiwnzen für Joyce- 
Drucker und serielle Schnittstelle (Epson- 
kompatihel) 
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(* lococon.PAS *) 
(c) W.Otternberg *) 


2 FROGRAM LOCOSCRIPT KONVERTIERUNG; 

3 (* Version 2.02 

4 

5 CONST CursorAus = #27#102; 

6 CursorEin = #27*101; 

7 Pufferbioecke = 17; 

8 Puffergroesse = 2176; (17 Bioecke mit je 128 byte) 

9 MaxDir = 64; 

10 

11 TYPE Zeile = string[90]; 

12 MiniString = string[ 6 ]; 

13 

14 VAR Puffer : Array[ 0 ..Puffergroesse] OF byte; 

15 LayoutTabelle : Array-[ 0 . . 10,0 . . 5] OF byte; 

16 CodeTabelle : Array[0..3,0..9] OF MiniString; 

17 DirFeld : Array[l..MaxDir] OF string[17]; 

18 Zieldatei ; text; 

19 Quelldatei : file; 

20 

21 Quelldateiname, 

22 Zieldateiname : string[15]; 

23 

24 SlOWahl, 

25 PTRWahl, 

26 Druckertyp, 

27 User, 

28 StartBlock, 

29 BloeckeEin, 

30 ErsteSeite, 

31 LetzteSeite, 

32 VonSeite, 

33 BisSeite, 

34 LiRand, 

35 Kopfteil, 

36 Dirzahl, 

37 i,n,m : integer; 

38 

39 DriveNr : byte; 

40 

41 DirGelesen, 

42 FormatGeaendert, 

43 Dateivorhanden ; boolean; 

44 

45 Laufwerk, 

46 KonvWahl, 

47 Eingabe, 

48 MitRand, 

49 Hauptmodus, 

50 Ausgabemodus,c : char; 

51 

52 ($1 LOCOl.INC } 

53 {$1 L0C02.INC } 

54 {$I L0C03.INC } 

55 

56 PROCEDURE Ausgabe; 

57 BEGIN 

58 REPEAT 

59 ClrScr; 

60 write(CursorAus); 

61 Menuebild('A USGABE - MENUE’, 

62 'Die Ausgabe soll erfolqen auf :', 

63 'B = Bildschirm ' P = Printer/JOYCE-Drucker', 

64 'S = SlO-Schnittstelle C = CENTRONICS-Schnittstelle’, 

65 'D = Diskette', 

66 ' 1 , 

67 'K = zum Konvertierungs-Menue', ( 

68 ’F = zum Format-Menue fuer Drucker und SIO/CEN , 

69 'x = zum Haupt-Menue / neue Datei bearbeiten ); 

70 gotoxy(5,29); 

71 write('Bezugslaufwerk: ',ehr(DriveNr+65)); 

72 gotoxy(55,29); 

73 write('User: '.User); 

74 gotoxy(68,29) 

75 write('Datei: ''.Quelldateiname); 

76 read(KBD,Eingabe); 

77 Ausgabemodus:=upcase(Eingabe); 

78 write(CursorEin); 

79 CASE Ausgabemodus OF 

80 ’B' : assignfZieldatei,'CON:'); 

81 'P' : BEGIN 

62 assign(Zieldatei,’LST:'); 

83 Druckertyp:=PTRWahl; 

84 END; 

85 ’S', 

86 ’C : BEGIN , . „ 

87 IF Ausgabemodus='C' THEN MEM[$FBC5]:=$10 

88 ELSE MEM[$FBC5]:=$20; 

89 assign(Zieldatei,’AUX:'); 

90 Druckertyp:=SIOWabl; 

91 END; 

92 'D' : BEGIN 

93 BDOS(32,0); {üser=0} 

94 ZieldateinameHolen; 

95 assign(Zieldatei,Zieldateiname), 

96 {$1-} rewrite(Zieldatei); {$1+] 

97 IF IOresultoO THEN EXIT; 

98 END; 

99 'K' : KonvertMenue; 

100 'F' : Formatwahl; 

101 END; , . , . ,,_ 

102 IF Ausgabemodus IN ['B'.'P', S', C , D ] THEN 

103 if Hauptmodus='L' THEN LocoDateiBearbeiten 

104 ELSE ASCIIDateiBearbeiten; 

105 UNTIL Ausgabemodus='X'; 

106 END; {Ausgabe] 

Listing LOCOCON 


107 

108 BEGIN (LOCOCON) 

109 Anfang; 

110 Laufwerk:='A'; 

111 Quelldateiname:=’'; 

112 FormatGeaendert:=False; 

113 KonvWahl:= 'A'; 

114 MitRand:='J‘; 

115 DirGelesen:=False; 

116 FormatdateiEinlesen; 


117 

REPEAT 


118 

ClrScr 


119 

write(CursorAus); 

120 

Menuebild('H AUPT - MENUE', 

121 

1 ' , 


122 

' L = 

LOCOSCRIPT-Datei bearbeiten 1 . 

123 

' A = 

ASCII-Datei bearbeiten 1 . 

124 

' D = 

Disketten- oder Laufwerkswechsel', 

125 

' K = 

Konvertierungs-Menue', 

126 

' F = 

Format-Menue fuer Drucker und SIO/CEN', 

127 

' S = 

Steuerzeichen-Sequenzen aendern', 

128 

' E = 

Programm beenden'); 

129 

gotoxy(5,29); 

130 

write( 

Bezugslaufwerk: ',Laufwerk); 

131 

read(KBD,Eingabe); 

132 

write(CursorEin); 

133 

Hauptmodus:=upcase(Eingabe); 

134 

CASE Hauptmodus OF 

135 

’L' 

BEGIN 

136 


IF DirGelesen=False THEN DirectoryLesen 

137 


IF QuelldateinameHolen THEN 

138 


BEGIN 

139 


QuelldateiOeffnen; 

140 


IF DateiVorhanden THEN 

141 


IF LocoVorhanden THEN 

142 


BEGIN 

143 


close(Quelldatei); 

144 


Ausgabe; 

145 


END; 

146 


END; 

147 


END; 

148 

’A' 

: BEGIN 

149 


IF DirGelesen=False THEN DirectoryLesen 

150 


IF QuelldateinameHolen THEN Ausgabe; 

151 


END; 

152 

'D' 

: DirectoryLesen; 

153 

'K' 

: KonvertMenue; 

154 

‘ F' 

: Formatwahl; 

155 

'S' 

: SteuerzeichenAendern; 

156 

END; 


157 

UNTIL Hauptmodus='E'; 

158 

BDOS(32, 

0 ): {User = 0 } 

159 

IF FormatGeaendert THEN Formatdateispeichern; 

160 

ClrScr; 



161 END. 

162 


LOCOl.INC Includedatei zu LOCOCON.PAS 


') 


write(#140),- 
write(#137); 


PROCEDURE Kasten(x,y,b,h :integer); 

BEGIN 

gotoxy(x,y); write(#134); 

FOR n:=1 TO (b-2) DO write(#138) 
gotoxy(x,y+h-1); write(#131); 

FOR n:=1 TO (b-2) DO write(#138) 

FOR n:=l TO (h-2) DO 
BEGIN 

gotoxy(x,y+n); write(#133); 
gotoxy(x+b-1,y+n); write(#133); 

END; 

14 END; 

15 

16 PROCEDURE Anfang; 

17 BEGIN 

18 ClrScr; 

19 write(CursorAus); 

20 FOR m:=l TO 6 DO Kasten(2*m,2*m,93-4*m,33-4*m); 

21 gotoxy(36,15); writet'L O C O C 0 N'); 

22 gotoxy(16,17); 

23 write('Programm zur Konvertierung und '); 

24 write('Ausgabe von LocoScript-Dateien '); 

25 delay(lOOO); 

26 write(CursorEin); 

27 END; 

28 

29 PROCEDURE Menuebild(Titel,Z0,Z1,Z2,Z3,Z4,Z5,Z6,Z7 ;Zeile); 

30 BEGIN 

31 Kasten(1,1,90,30); 
gotoxy(l,5); write(#135); 

FOR n:=1 TO 88 DO write(#138); write(#141); 
gotoxy(l,28); write(#130); 

FOR n:=1 TO 88 DO write(#154); write(#136); 
gotoxy((90-length(Titel))DIV 2,3); write(Titel); 
gotoxy(8,8); write(ZO); 
gotoxy(24,ll); write(Zl), 


gotoxy(24,13); write(Z2) 
gotoxy(24,15); write(Z3) 


Listing LOCOCON 
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gotoxy(24,1?); write(Z4) 
gotoxy(24,19); write(Z5) 
gotoxy(24,21); writef Z6) 
gotoxy(24,23); write{Z7), 
gotoxy(65,26); write('Bitte waehlen Sie !'); 

END; 


45 

47 

43 

43 

50 

51 

52 

53 

54 
5 5 

56 

57 
53 
59 
50 
61 
62 

53 

54 
65 
56 
67 
63 

69 

70 

71 

72 

73 

74 

75 

76 

77 


PROCEDURE Weiter; 

BEGIN 

writeln;writeln; 

gotoxy(62,30); write(#7,'Weiter mit «RETURN»'); 
readin; 

END; 


PROCEDURE Geduld; 
BEGIN 
ClrScr; 

Kasten(20,24,51,5); 
gotoxy(24,26); 
writef'* Bitte 
gotoxyf90,30); 

END; 


etwas Geduld 


PROCEDURE PapierEinlegen; 

BEGIN 

ClrScr; 

Kasten(10,8,67,5); 
gotoxy( 18 , io); 

Bitte Papier einlegen, '); 
write('dann «RETURN> druecken *')• 
readin(Eingabe); 

Kasten(10,15,67,5); 
gotoxy(27,17); 

write('* Die Daten werden ausgegeben ' 
gotoxy(90,30); 

END; 


L0C02.INC Incluaedatei zu LOCOCON.PAS 


PROCEDURE FormatdateiEinlesen; 

VAR a,b,c : integer; 

Nochmal : boolean; 

Formatdatei : file OF Ministring; 

St : Ministring; 

BEGIN 

Assign(Formatdatei,'A:LOCOCON.FRM’); 

REPEAT 

{$1-} reset(Formatdatei); ($ 1 +) 

IF IOresult <> 0 THEN 
BEGIN 

Nochmal:=True; 

ClrScr; 

Kasten(10,20,70,5) ; 
gotoxy( 12 , 22 ); 

write('Fehler! Formatdatei LOCOCO.FRM '); 
write('in Laufwerk A: nicht gefunden'); 
gotoxy(20,29); 

write(#7, 1 <W>iederholen oder <I>gnorieren ? 1 

read(KBD,Eingabe); 

IF upcase(Eingabe)='I' THEN Nochmal:=False; 

END ELSE 
BEGIN 

Nochmal:=False; 

FOR a:=0 TO 3 DO FOR b:=0 TO 9 DO 

read(Formatdatei,CodeTabelle[a,b]), 
read(Formatdatei,St); Val(St,SlOWahl,c); 
read(Formatdatei,St); Va1(St,PTRWahl,c); 

END; 

UNTIL Nochmal=False; 
close(Formatdatei); 

END; 

PROCEDURE Formatdateispeichern; 

VAR a,b : integer; 

Formatdatei : file OF Ministring; 

St ; Ministring; 

BEGIN 

ClrScr; 

Kasten(8,10,74,8); 
gotoxy(12,13); 

write('Die geaenderten Format- oder Steuersequen2en 1 
write('werden abgespeichert'); 
gotoxy(12,15); 

write('Bitte die Programm-Diskette in A: einlegen '); 

write(’und «RETURN» druecken'); 

readin; 

Assign(Formatdatei,'A:LOCOCON.FRM'); 
rewrite{Formatdatei); 

FOR a:=0 TO 3 DO FOR b:=0 TO 9 DO 

write(Formatdatei,CodeTabelle[a,b]); 

Str(SlOWahl,st) ,- 
write(Formatdatei,st); 

Str(PTRWahl,St); 
write(Formatdatei,St); 
close(Formatdatei); 

END; 
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PROCEDURE SteuerzeichenAendern; 
VAR a,b,c,d,e,f : integer; 


file OF Ministring; 
Ministring; 


fuer '); 


SteuerDatei 
St 

BEGIN 
ClrScr; 
a:=l; 

Kasten(1,1,89,29); 

REPEAT 

gptoxy(20,3);write(’F O R M A T <« 

CASE a OF 

0 : write(‘JOYCE und SIO/CEN 

1,2 : write('SIO/CEN-schnittstelle'j 
3 : write('JOYCE-Drucker ') 

END; 

gotoxy( 20 ,7) ; 

write('Folgende Steuersequenzen sind gespeichert:'); 
gotoxy(20,9);write('0 = Doppeldruck ein'); 
gotoxy(20,10);write('1 = Doppeldruck aus'); 
gotoxy(20,ll);wrlte('2 = Unterstreichen ein’); 
gotoxy(20,12);wrlte{'3 = Unterstreichen aus’); 
gotoxy(20,13) ; write('4 = Kursiv ein'); 
gotoxy(20, 14) ;write('5 = Kursiv aus’); 
gotoxy(20,15);write('6 = Proportionalschrift'); 
gotoxy(20,16);write('7 = 10 Zeichen/Zoll'); 
gotoxy(20,17);write('8 = 12 Zeichen/Zoll'); 
gotoxy(20,18);write('9 = 15 Zeichen/Zoll'); 
gotoxy(20,20);write(’N = naechstes Format'); 
gotoxy(20,22);write( 'X = Menue verlassen'); 

FOR b:=0 TO 9 DO 
BEGIN 

gotoxy(46,9+b);write(': '); 
end° R d:=1 6 00 write (° r< *{CodeTabelle[a,b][d]):4); 

gotoxy(20,25); 

write(’Anwaehlen und Eingabe ’); 
write('in DEZ oder HEX($) mit «RETURN» '); 
read(KBD,Eingabe); 

Val(Eingabe,b,c); 

IF (c=0) AND (b IN [0..9]) THEN 
BEGIN 
St; = ' ' ; 

gotoxy(48,9+b); 

write('> ') ; 

gotoxy(50,9+b); 

FOR d: =1 TO 6 DO 
BEGIN 
e: =0; 
read(e); 

St:=St+chr(e); 
write(' '); 

END; 

CodeTabelle[a,b]:=St; 

FormatGeaendert:=True; 

END; 

IF upcasefEingabe)='N' THEN a:=succ(a); 

IF a=4 THEN a:=0; 

UNTIL upcase(Eingabe)='X’; 

END; 


PROCEDURE DirectoryLesen; 

VAR FCB : ARRAY[0..31] OF char; 

ARRAY[0..127] OF Char; 
string[17]; 
char; 

string[l]; 
byte; 


') 




Puffer 
Name 
Eingabe 
st 

Z , S2,ZZ 
BEGIN 
ClrScr; 

Kasten(10,2,70,6); 
gotoxy(15,4); 

write('Bitte Bezugslaufwerk waehlen A, B oder M : 
read(KBD,Laufwerk); Laufwerk:=upcase(Laufwerk); 

IF Laufwerk IN [’A',’B','M'] THEN ELSE Laufwerk:=’A'; 
write(Laufwerk); 

DriveNr:=(ord(Laufwerk)-65); 

IF Laufwerk IN ['A','B'] THEN 
BEGIN 

Kasten(10,9,70,6); 
gotoxy(15,11); 

write('Diskette in Laufwerk << '); 
write(Laufwerk,' >> einlegen !'); 
gotoxy(15,12); 

wrlte(’«RETURN» druecken oder mit <Z> 
write('zurueck zum Haupt-Menue '); 

REPEAT read(KBD,Eingabe) 

UNTIL upcasefEingabe) IN ['Z',#13]; 

IF upcase(Eingabe)='Z' THEN EXIT; 

END; 

DirZahl:=0; 

FCB: = 

'????????????'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0; 
BDOS(13); {Diskettensystem zuruecksetzen) 

BD0S(14,DriveNr); {Bezugslaufwerk festlegen] 

BDOS(26,Addr(Puffer)); {Datenuebergabe-Adresse festlegen} 
z:=BD0S(17,Äddr(FCB)); {Ersten Eintrag holen) 

WHILE z<»255 DO 
BEGIN 

IF Puffer[z*32]<#128 THEN 
BEGIN 

Name:=copy(Puffer,z*32+2,11); 
insert('.',Name,9); 

User:=ord(Puffer[z*32]) AND 127; 

IF (((User<8)AND(ord(Name[11])<128))AND 
(copy(Name,10,3)< >'GRP 1 )) THEN 
BEGIN {ohne SYS-, Trans und GRP-Dateien) 

DirZahl:=succ(DirZahl); 
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275 

BEGIN 




276 

OASE b OF 



277 

208 

UmlautASC 

=#91; 


278 

211 

UmlautASC 

=#92; 


279 

212 

UmlautASC 

=#93; 


280 

240 

UmlautASC 

=#123 


281 

243 

UmlautASC 

= #124 


282 

244 

UmlautASC 

=#125 


283 

186 

UmlautASC 

=#126 


284 

ELSE UmlautASC 

=chr(b); 

205 

END; 




286 

END; 




207 





288 

FUNCTION UmlautLOC(VAR b:byte):MiniString; 

289 

BEGIN 




290 

CASE b OF 



291 

91 

UmlautLOC 

=#208 


292 

92 

UmlautLOC 

=#211 


293 

93 

UmlautLOC 

=#212 


294 

123 

UmlautLOC 

=#240 


295 

124 

UmlautLOC 

=#243 


296 

125 

UmlautLOC 

=#244 


297 

126 

UmlautLOC 

=#186 


298 

ELSE UmlautLOC 

=chr(b); 

299 

END; 




300 

END; 




301 





302 

PROCEDURE FormatWahl; 


303 

VAR e,f 

: integer; 

304 

SteuerDatei : file OF MiniStrinq; 

305 

St 

: Ministring; 

306 

BEGIN 




307 

ClrScr; 



308 

write(CursorAus) 



309 

Menueblldt'F 0 R 

MAT 

- MENUE', 

310 

’LOCOSCRIPT-Dateien sollen wie folgt ausgegeben werden:', 

311 

'0 = SIO/CEN mit 

Format 0 (o. Steuerzeichen, nur Text) , 

312 

'1 = SIO/CEN mit 

Format 1 (z.B. EPSON-kompatibel)’, 

313 

'2 = SIO/CEN mit 

Format 2 (z.B. Typenrad)', 

314 

1 ' 




315 

'3 = Joyce-Drucker ohne Steuerzeichen, nur Text', 

316 

'4 = Joyce-Drucker mit 

Schriftartwechsel + Hervorheben , 

317 

'x = Menue verlassen') 


318 

REPEAT 



319 

IF PTRWahl=0 THEN f: 

-4 ELSE f:= 5; 

320 

FOR 

e:=0 TO 5 DO 


321 

BEGIN 



322 


gotoxy(19,2*e+ll 

; 

323 


IF ((e=SIOWahl) OR (e=f)> THEN write('==>') 

324 




ELSE writeC '); 

325 

END; 



326 

read(KBD,Eingabe); 


327 

IF Eingabe IN 

'0' . . 

4'] THEN FormatGeaendert:=True; 

328 

CASE Eingabe OF 


329 

'0' : SlOWahl:=0; 


330 


1 : SlOWahl:=1; 


331 


’ : SlOWahl:=2; 


332 


' : PTRWahl:=0; 


333 

1 

' : PTRWahl:=3; 


334 

END; 



335 

UNTIL 

upcase(Eingabe)= 

X'; 

336 

write(CursorEin) 



337 

END; 




338 





339 

PROCEDURE KonvertMenue; 


3 40 

VAR a 

e,f : integer; 


341 

BEGIN 




342 

ClrScr; 



343 

write ( CursorAus) 



344 


V E R 

TIERUNGS - MENUE, 

345 

'Die Ausgabe, bzw. Abspeicherung soll erfolgen mit: , 

346 

’A = ASCII-Umlauten, deutscher Zeichensatz , 

347 

’L = LOCOSCRIPT-Umlauten', 

348 

'0 = keine Umlaute, sondern ae, re, oe, ss, usw. , 

349 

' ' 




350 

'M = mit linkem Rand wie Layout , 

351 

’K = kein linker 

Rand ’ 


352 

’X = Menue verlassen'); 

353 

REPEAT 



354 

BEGIN 



355 

IF KonvWahl= 

A 1 THEN a:=0 ELSE IF KonvWahl= L 

356 




THEN a:=1 ELSE a:=2; 

357 

IF MitRand= 1 

J' THEN f : =4 ELSE f:=5; 

358 

FOR e : =0 TO 

DO 


359 


BEGIN 



360 


gotoxy(19,2*e+ll) ; 

361 


IF ( (e=a) OR ( e = f )) THEN writef '= = >') 

362 




ELSE write (' ); 

364 

read ( KBD , Eingabe ); 

Eingabe : =upcase(Eingabe ); 

365 

CASE Eingabe 

OF 


366 


1 A' , 'L' , ’O 

: KonvWahl:=Eingabe; 

367 


’M' 

: MitRand:='J' ; 

368 


’K’ 

: MitRand:='N' ; 

369 

END; 



370 

END 




371 

UNTIL 

Eingabe = X ; 


372 

write(CursorEin) 



373 

END; 




374 





375 

PROCEDURE ASCIIDateiBearbeiten ; 

376 

BEGIN 








378 

IF Ausgabemodus 

IN [ ' P 

','SVC'] THEN PapierEinlegen; 

379 

IF Ausgabemodus 

IN [' D ' ] THEN Geduld; 

380 

QuelldateiOeffnen; 
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168 

IF Dirzahl>MaxDir THEN EXIT; 

169 

Str(User:1 

-st); 

st+'> : ’+Name; 

170 

Name: ='< N 

171 

DirFeld[DirZahl]:=Name; 

172 

END; 


173 

END; 


174 

Z:=BD0S(18); 

(Naechsten Eintrag holen} 

175 

END; 


176 

DirGelesen:=True; 


177 

END; 


178 

179 

FUNCTION QuelldateinameHolen : boolean; 

180 

VAR zzmax,szmax. 


181 

zz,sz : byte; 


182 

st : stringfl]; 


183 

BEGIN 


184 

ClrScr; 


185 

sz:= 0 ; zz:= 0 ; 


186 

Quelldateiname:=''; 


187 

QuelldateinameHolen: =False 

188 

gotoxy(l,l); 
write('Im Laufwerk; 


189 

Laufwerk,' sind unter der '); 

190 

write('vorangestellten USER-Nummer gespeichert:'); 

191 

gotoxy(l, 4 ); 


192 

FOR n:=1 TO Dirzahl DO 

193 

BEGIN 


194 

gotoxy( 20 *((n- 1 ) MOD 4)+6,((n-l) DIV 4)+4); 

195 

write(DirFeld[n]) 


196 

END; 


197 

gotoxy(8,30); 

write('Gewuenschte Dat 


198 

ei anwaehlen und RETURN druecken'); 

199 

write(’ - oder mit <Z> 

zurueck'); 

200 

gotoxy(6,4); 

201 

LowVideo; write(DirFeld[l],' '); NormVideo; 

202 

REPEAT 


203 

REPEAT 


204 

read(KBD,Eingabe) 


205 

UNTIL Eingabe IN [#6,#1,#30,#31,#13,’z',’Z']; 

206 

zzmax;=((DirZahl- 1 ) 

DIV 4); 

207 

szmax:=((DirZahl-1) 

MOD 4); 

208 

gotoxy (2 0 * sz+ 6 ,4+z z 

; write(DirFeld[zz*4+sz+l],' '); 

209 

CASE Eingabe OF 


210 

#6 : IF((zz<zzmax)OR{(zz)=zzmax)AND(sz<szmax)) 

211 


THEN IF SZ<3 THEN SZ:=SZ+1; 

212 

#1 : IF sz>0 THEN sz:=sz-l; 

213 

#30 : IF (((zz+l)<zzmax)OR(((zz+l)=zzmax) 

214 


AND(sz<=szmax)))THEN ZZ:=ZZ+1; 

215 

#31 : IF ZZ>0 THEN ZZ:=ZZ-1; 

216 

'z',’Z': EXIT; 


217 

END; 


218 

gotoxy(20*sz+6,4+zz); 

219 

LowVideo; write(DirFeld[zz*4+sz+l ], 1 '); NormVideo; 

220 

UNTIL Eingabe=#13; 


221 

FOR n:=5 TO 17 DO 


222 

BEGIN 


223 

st:=copy(DirFeld[zz*4+sz+l],n,1); 

224 

IF st<>#32 THEN Quelldateiname:=Quelldateiname+st; 

225 

END; 


226 

st:=copy(DirFeld[zz*4+sz+l], 2 , 1 ) ; 

227 

Val(st,User,n); 


228 

QuelldateinameHolen:=True; 

229 

END; 


230 

231 

PROCEDURE QuelldateiOeffnen; 

232 

BEGIN 


233 

BDOS(32,User); 

{Userbereich anwaehlen) 

234 

Assign(Quelldatei.Quelldateiname); 

235 

{$!-) reset(Quelldatei); ($1+) 

236 

IF IOresult <> 0 THEN 


237 

BEGIN 


238 

close(Quelldatei) 


239 

Dateivorhanden:=False; 

240 

ClrScr; 


241 

Kasten(15,20,60,7 

; 

242 

gotoxy (20, 22) ; write(’Fehler ! '); 

write('Datei: 'Quelldateiname,' nicht gefunden'); 

243 

244 

gotoxy(28,24); 


245 

write('Wurde die Diskette gewechselt ??? ); 

246 

Weiter; 


247 

END 


248 

ELSE Dateivorhanden:=True; 

249 

END; 


250 

251 

PROCEDURE ZieldateinameHolen; 

252 

BEGIN 


253 

ClrScr; 

Kasten(5,1,80,5); 


254 


255 

gotoxy(10,3); 


256 

write('Bitte Dateiname der Ziel-Datei eingeben: ); 

257 

readln(Zieldateiname) 


258 

END; 


259 

260 

FUNCTION OhneUmlaut(VAR 

b:byte):MiniString; 

261 

BEGIN 


262 

CASE b OF 


263 

91 ,208: OhneUmlaut 

='Ae’; 

264 

92 ,211: OhneUmlaut 

= ' Oe' ; 

265 

93 ,212: OhneUmlaut 

='Ue'; 

266 

123,240: OhneUmlaut 

= 'ae' ; 

267 

124,243: OhneUmlaut 

='oe'; 

268 

125,244: OhneUmlaut 

='ue'; 

269 

126,186: OhneUmlaut 

='SS'; 

270 

ELSE OhneUmlaut 

=chr (b); 

271 

END; 


272 

END; 


273 

274 

FUNCTION UmlautASC(VAR b:byte):MiniString; 
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Das erste 


Joyce Sonderheft 

ist bei dmv noch zu haben! 


Für Joyce-Besitzer haben wir das erste Sonderheft fertiggestellt. Für alle denen 
die Joyce-Rubrik in der PC International nicht genügend Stoff für einen ganzen 
Monat bieten konnte, stellt dies Sonderheft eine Fülle von Informationen, Tips 
und Tricks und Programmen zur Verfügung. 

Dies Heft deckt das ganze Interessenspektrum eines Joyce-Besitzers ab - 
vom Basictip bis zur Erweiterung mathematischer Funktionen, von der Drucker¬ 
einstellungsroutine bis zum kompletten Assembler/Disassembler ist alle enthal¬ 
ten, was Joycer’s Herz höher schlagen läßt. 

Aus dem Inhalt: 

- ein komfortabler Maskengenerator erlaubt die Erstellung von Bildschirm¬ 
masken für selbstgeschriebene Programme aller Art, ohne umständlich mit 
PRINT-Anweisungen hantieren zu müssen. 

- eine Bauanleitung ermöglicht Ihnen, auf einfache Weise einen Joystick an 
den Joyce anzuschließen. Die Richtungen des Joysticks werden auf Pfeilta¬ 
sten gelegt. 

- fertig ist die »Fernbedienung« 

- für LocoScript-Freunde bietet das Heft einen Beitrag über Fußnoten unter 
LocoScript. 

- ein besonderer Leckerbissen für CP/M-Fans wird mit dem Beitrag XBIOS 
serviert. 

- zur Entspannung zwischendurch stehen kleine Spiele zur Verfügung, u.a. 
ein Mau-Mau mit definierbarem Level. 

- last not least: Tips und Tricks zu Basic, Logo, dBase und vielem anderem 
mehr. 

Das JOYCE-Sonderheft 1 ist noch direkt beim Verlag für DM 20,- erhältlich. 
Sämtliche im Sonderheft enthaltenen Programme sind auch auf 3“-Disk (Data- 
box) zum Preis von DM 30,- beim Verlag erhältlich. 



Joyce-Sonderheft Nr. 1 - Joyce-Literatur - Software 


...um Himmels willen: nicht verschenken! 



Bestellkarte ausfüllen und absenden an: 

DMV Daten- und Medien-Verlagsgesellschaft mbH 
Postfach 250 ■ Fuldaer Str. 6 
3440 Eschwege • Tel. (05651) 8702 


Sie haben doch nicht ernsthaft mit dem Gedanken gespielt, das hier abgebildete Joyce- 
Buch/Disketten-Paket unserers Hauses Ihrem besten Freund oder Ihrer besten Freundin zu 
schenken? Sie wissen doch: im Computerzeitalter wird einem nichts mehr geschenkt. Auch 
nicht zu Weihnachten. Oder haben Sie etwa Ihren »Joyce« geschenkt bekommen? Voilä. Das 
hätten Sie wohl gerne so gehabt. War aber nich'. Und weil Ihnen nichts geschenkt wird, ha¬ 
ben Sie auch nichts zu verschenken. Rein gar nichts! Auch nicht Ihre Zeit, mit Herumpro¬ 
bieren zum Beispiel, oder mit erfolglosen Experimenten. Stattdessen könnten Sie die vor¬ 
bereitete Software der eben schon zitierten Diskette für sich selbst benutzen. Da finden 
Sie die Lösungen Ihrer Joyce-Alltagsprobleme. 

Erleben Sie, was ein Profi aus einem simplen Schreibcomputer ’rausholen kann. 
Vielleicht schenken Sie sich jetzt erst mal einen ein, und dann schenken Sie sich 
was für 89,- Mark. 

Geschenkt? Geschenkt! 


Aus dem Inhalt: 

- LocoScript Spezial - Softwaretraining für Fortgeschrittene 

- Fehler im System: Wie rette ich meinen Text 

- Joyce-Tasteninstallationsdatei für das Programm Wordstar 

- Aleatorische Poetik: Der Compu¬ 
ter dichtet 

- Auf Diskette: Über 50 Dateien mit 
Schablonen, Briefen, Postkarten, 
Serien-Rundschreiben, Formula¬ 
ren, Etiketten, Druckbeispielen, 
Schriften, Bildschirm-Installatio¬ 
nen uvm. 


Leinen-Hardcover, 207 Seiten, 
3“-Diskette 

89,- DM 

(unverb. Preisempfehlung) 

Zu Beziehen über den Computer¬ 
fachhandel, den guten Fachbuch¬ 
handel oder direkt beim Verlag. 
Händleranfragen erwünscht. 


Ein DMV-Buch + 3“-Diskette 
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393 
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413 

414 


IF NOT Dateivorhanden THEN EXIT; 

REPEAT 

Blockread(Quelldatei,Puffer,Pufferbioecke,BloeckeEin); 
i: = 0; 

WHILE ((i<BloeckeEin*128)AND(Puffer[i]<>$lA)) DO 
BEGIN 

CASE Pufferti] OF 
$20..$5A, 

$61..$7A : write(Zieldatei,chr(Puffer[i])); 

$0C : BEGIN 

XF Ausgabemodus='B' THEN 

FOR n:=1 TO 90 DO write!'-') 
ELSE write(Zieldatei,#$0C); 

XF (Ausgabemodus IN['P','S', 'C' ] ) TH 
PapierEinlegen; 

END; 

ELSE 

BEGIN 

CASE KonvWahl OF 

'A' : write(Zieldatei,UmlautASC(Puffer[i])); 
’L' : write(Zieldatei,UmlautLOC(Puffer[i])); 
’O' : write(Zieldatei,OhneUmlaut(Puffer[i])); 
END; 

END; 

END; 

i:=succ(i); 

END; 

UNTIL BloeckeEin=0; 
close(Quelldatei); 

IF Ausgabemodus^D’ THEN BDOS(32,0); [User=0] 

close(Zieldatei); 

IF Ausgabemodus='B' THEN Weiter; 

END; 


1 («****.* L0CO3.INC Includedatei zu L0C0C0N.PAS *******) 

2 

3 FUNCTION LocoVorhanden : boolean; 

4 BEGIN 

5 Blockread(Quelldatei,Puffer,3,BloeckeEin); 

6 ClrScr; 

7 Kasten(5,18,50,13); 

8 gotoxy(7,20); 

9 IF ((Puffer[0]=$4A)AND(Puffert1]=$4F) 

10 AND(Puffer[2]=$59)> THEN 

11 BEGIN 

12 LocoVorhanden:=True; 

13 write( 1 Locoscriptdatei : << 1 .Quelldateiname); 

14 writej* >> gefunden.’); 

15 StartBlock:=Puffer[$7E]; 

16 IF ((NOT(StartBlock IN [1..15]))OR(BloeckeEin<3) ) THEN 

17 BEGIN 

18 LocoVorhanden:= Fa1se; 

19 gotoxy(10,24); 

20 write('Format der Locoscript-Datei ungeeignet!'); 

21 LocoVorhanden:=False; 

22 END ELSE 

23 BEGIN 

24 ErsteSeite:=Puffer[107]; LetzteSeite:=Puffer[109]; 

25 gotoxy(7,22); 

26 write(’Von Seite : 1 .ErsteSeite); 

27 write( 1 bis Seite: 1 ,LetzteSeite); 

28 gotoxy(7,24); write('Dateigroesse: '); 

29 write(FileSize(Quelldatei)*128,' Bytes'); 

30 gotoxy(7,26); write('Text-Info : '); 

31 FOR i:=5 T0 34 DO write(UmlautASC(Puffer[i])); 

32 gotoxy(21,27); 

33 FOR i : =35 TO 64 DO write(UmlautASC(?uffer[i])); 

34 gotoxy(21,28); 

35 FOR i:=65 TO 94 DO write(UmlautASC(Puffer[i])); 

36 FOR n:=0 TO 10 DO FOR m:=0 TO 5 DO {10 Layouts } 

37 LayoutTabelle[n,m]:= [Schrift-RRand] 

38 Puffer[$80+((10+Puffer[$60])*n)+m]; 

39 Kopfteil:=(Puffer[$70] DIV 2)-6; 

40 END; 

41 END ELSE 

42 BEGIN 

43 LocoVorhanden:=FaIse; 

44 write('Keine Locoscript-Datei !!!!'); 

45 END; 

46 Weiter; 

47 END; 

48 


49 PROCEDURE LocoDateiBearbeiten; 

50 VAR Seitenlaenge, 


51 

LetzterTab, 


52 

LayoutNr, 


53 

LiVersatz, 


54 

n,p,SeitenNr 

: integer; 

55 

Schriftart, 

56 

Hervorhebecode : 

: byte; 

57 

Textzeile 

: stringfl 28 ]; 

58 

Unterstreichen, 


59 

StartFlag, 


60 

EndFlag 

: boolean; 

61 

62 

PROCEDURE Out(Zeichen:MiniStrin 
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63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 


BEGIN 

CASE Zeichen[l] 
#$86: BEGIN 


OF 


{Zeilenanfang] 

p: =LiRand-LiVersatz ; 

Textzeile;='' ; 

IF Ausgabemodus IN ['P'.'S'j'C'j THEN 
IF Unterstreichen THEN Textzeile:= 

Textzeile+CodeTabelle[Druckertyp,3]; 
FOR n:=l TO p DO Textzeile:=Textzeile+' 

IF Ausgabemodus IN ['P','S 1 ,'C'] THEN 
IF Unterstreichen THEN Textzeile:= 

Textzeile+CodeTabellefDruckertyp,2]; 

END; 

#$ 88 : BEGIN {Zeilenende} 

IF Textzeile[lengtb(Textzeile)]=' ' 

THEN delete(Textzeile,length(Textzeile),1); 
writeln(Zieldatei,Textzeile); 

Textzeile:=''; 

END; 

#$89: BEGIN {TAB] 

FOR n:=(p+l) TO (LetzterTab - LiVersatz) DO 
BEGIN 

Textzeile:=Textzeile+' '; 
p:=succ(p); 

END; 

END; 

#$0C: IF Ausgabemodus='B‘ THEN 

FOR n :=1 TO 90 DO write('-’) 

ELSE writeln(Zieldatei,#$0C); 

ELSE BEGIN 

Textzeile:=Textzeile+Zeichen; 

IF length(Zeichen )<6 {keine Steuersequenz) 

THEN p:=p+length(Zeichen); 

END; 

END; 

END; {Out) 


{Seitenende} 


PROCEDURE Sehriftwahl(x:byte); 

BEGIN 

OF 

Out(CodeTabeIle[Druckertyp,6]) 
Out(CodeTabelle[Druckertyp,9]) 
Out(CodeTabelle[Druckertyp,9]) 
Out(CodeTabelle[Druckertyp,8]) 
Out(CodeTabelle[Druckertyp,7)) 


CASE 
$00 
$0E 
$10 
$14 
$18 
END; 

END; 

PROCEDURE Hervorheben(x:byte); {doppelt/kursiv/unterstr.} 
BEGIN 

IF (x AND $11>>0 THEN Out(CodeTabeliefDruckertyp,0]) 
ELSE Out(CodeTabeIle[Druckertyp,1]); 

IF (x AND $20)>0 THEN Out(CodeTabelle[Druckertyp,4]) 
ELSE 0ut(CodeTabelle[Druckertyp,5]); 

IF (X AND $06)>0 THEN BEGIN 

Out(CodeTabeIle[Druckertyp,2]); 
Unterstreichen:=True; 

END 

ELSE 0ut(CodeTabelle[Druckertyp,3]); 

END; 


{Seitenende} 

[Leerzeichen] 


125 

BEGIN 


126 

CASE Puffer[i] OF 

127 

$80: 

IF EndFlag THEN 

128 

$81: 

Out(#$20) ; 

129 

$82: 

BEGIN 

130 


IF Puffer[i+1] 

131 


IF Puffer[i+1] 

132 


i:=i+l; 

133 


END; 

134 

$86: 

BEGIN 

135 


Out(#$86) ; 

136 


i:=i+2; 

137 


END; 

138 

$88: 

BEGIN 

139 


IF Pufferti+1] 

140 


i:=i+l; 

141 


END; 

142 

$89, 


143 

$8B: 

BEGIN 


{Zeilenanfang} 


{Zeilenende} 


[Tab] 
[Buendig-Tab] 

.]=0 THEN LiRand:=Puffer[i+2] 

ELSE BEGIN 

LetzterTab:=Puffer[i+2]; 

Out(#$B9); 

END; 

IF Puffer[i]=$8B THEN i:=l+7 ELSE i:=i+4; 

END; 

BEGIN {buendig} 

IF Puffer[i+I]=8 THEN ELSE Out(#$88); 
i:=i+5; 

END; 

END; 

END; {LocoSonderzeichen) 

PROCEDURE Mitsteuerzeichen; 

BEGIN 

CASE Puffer[i] OF 
*83 : BEGIN 

CASE Puffer[i+1] OF 

0,4: Out(CodeTabelle[Druckertyp.O]); 

1,2: BEGIN 

Out(CodeTabelle[Druckertyp,2]); 
Unterstreichen:=True; 


$8A: 


144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 


Listing LOCOCON 


{Hervorheben ein) 


END; 

Out(CodeTabelle[Druckertyp,4]); 
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:£ 3 
l^O 
:?i 

172 

173 

174 

175 

176 

177 

178 

179 

180 
131 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 
' 209 
’ 210 

211 

212 

213 

214 
: 215 

216 

217 

218 
219 

; 220 
I 221 
! 222 

223 

224 

225 

i 226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 
: 259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 


$84 


[Hervorheben aus) 


*85 


END; 
i:=i+l; 

END; 

BEGIN 

CASE Puffer[i+1] OF 

0,4: Out(CodeTabe1le[Druckertyp,1]); 

1,2: BEGIN 

Out(CodeTabelle[Druckertyp,3]); 
Unterstreichen:=False; 

END; 

5 : Out(CodeTabeIle[Druckertyp,5]); 

END; 
i: =i+l; 

END; 

BEGIN (Einfuegen) 

CASE Puffer[i+l] OF 

0: IF Puffer[i+2]=1 THEN 

Out(#$2D): {Softtrenn) 

2 : IF Puffer[i+ 2]<11 THEN [neues Layout) 
BEGIN 

Unterstreichen:=False; 

Hervorhebecode:= 

LayoutTabelle[Puffer[i+2],3]; 
Hervorheben(Hervorhebecode); 
Schriftart:= 

LayoutTabelle[Puffer[i+2],0]; 
Schriftwahl(Schriftart); 

END; 

5: BEGIN (Schrift) 

Schriftart:=Puffer[i+2]; 
Schriftwahl(Schriftart); 

END; 

END; 

i:=i+ 2 ; 

END; 

END; 

END; (Mitsteuerzeichen) 

PRQCEDURE Ohnesteuerzeichen; 

BEGIN 

CASE Puffer[i) OF 
$83,$84: i:=i+l; 

$85 : BEGIN (Softtrenn) 

IF Pufferti+l]=0 THEN IF Puffer(i+2]=1 
THEN 0ut(#$2D); 

i;=i+ 2 ; 

END; 

END; 

END; 

PROCEDURE Seitenanfang; 

BEGIN 

Schriftart;=(Puffer[9] AND *7F); 

Hervorhebecode:=Puf fer[12]; 

LayoutNr;=Puffer[7]; 

LiRand:=Puffer[ 8 ]; 

LiVersatz:= 0 ; 

IF MitRand='N' THEN LiVersatz:=LayoutTabelle[0,4]; 

IF LiVersatZ>LiRand THEN LiVersatz:=LiRand; 

Out(#$ 86 ); 

IF (Ausgabemodus INf'P'.'S'.'C']) THEN 
BEGIN 

PapierEinlegen; 

Kasten(28,25,30,5); 
gotOxy(35,27); 

write(‘* Seite: < '.SeitenNr,* > *'); 
gotoxy(90,30); 

IF Druckertyp >0 THEN 
BEGIN 

Schriftwahl(Schriftart); 
Hervorheben(Hervorhebecode); 

Out(#$ 88 ); 

END; 

END; 

FOR n:=3 TO Kopfteil DO writeln(Zieldatei); 

END; 

PROCEDURE SeitennummerHolen; 

BEGIN 

Vonseite:=ErsteSeite; 

BisSeite:=LetzteSeite; 

IF ErsteSeite=LetzteSeite THEN EXIT; [nur eine Seite) 
REPEAT 
ClrScr; 

Kasten(5,3,80,ll); 
gotoxy(ll,5); 

write('Alle Seiten ausgeben, bzw. speichern ? 
write('j/n : '); 

REPEAT 

read(KBD,Eingabe); 

UNTIL upcase(Eingabe) IN['J','N']; 

IF upcase(Eingabe)='N' THEN 
BEGIN 

write('nein'); 
gotoxy(ll,7); 

write{'Erste Seite: '.ErsteSeite); 
write(' Letzte Seite: ',LetzteSeite); 

gotoxy(ll,9); 

write(‘Ausgabe von Seite: '); 

{$1—) readln(VonSeite); ($ 1 +) 

IF IOresultoO THEN VonSeite : =0 ; 
gotoxy(ll,ll); 

write(’ bis Seite: '); 

($ 1 -) readln(BisSeite); ($ 1 +) 

IF IOresultoO THEN BisSeite:=0; 

END ELSE BEGIN 


•); 


Listing LOCOCON 


275 VonSeite:=ErsteSeite; 

276 BisSeite:=LetzteSeite; 

277 END; 

278 UNTIL((VonSeite<=BisSeite)AND((VonSeite>= 

279 ErsteSeite)AND(BisSeite<=LetzteSeite))); 

280 END; 

281 

282 FUNCTION Zulang :boolean; 

283 (Bei Diskettenausgabe max. 16 kByte-Kopie aus anderem) 

284 (Userbereich moeglich) 

285 BEGIN 

286 IF BloeckeEin<(Puffer(O)-l) THEN 

287 BEGIN 

288 ClrScr; Kasten(10,5,65,7); 

289 gotoxy(16,7); 

290 write ( 1 Fehler! Datei zu lang '); 

291 write(‘fuer unterschiedliche Usernummern’); 

292 gotoxy(22,9); 

293 write('Datei auf User 0 (gruppeO) kopieren'); 

294 Weiter; 

295 Zulang:=True; 

296 END ELSE Zulang:=False; 

297 END; 

298 

299 BEGIN (LocoDateiBearbeiten) 

300 SeitennummerHolen; 

301 IF Ausgabemodus='B' THEN ClrScr ELSE Geduld; 

302 Unterstreichen;=False; 

303 SeitenNr:=ErsteSeite; 

304 Textzeile:=' 1 ; p:=l; 

305 QuelldateiOeffnen; 

306 IF NOT Dateivorhanden THEN EXIT; 

307 Blockread(Quelldatei.Puffer,StartBlock); 

3°8 (Info-Bloecke blind einiesen) 

309 WHILE NOTuEOF(Quelldatei))OR(SeitenNr>BisSeite)) DO 
BEGIN 

WHILE SeitenNr<VonSeite DO (Seiten ueberspringen) 
BEGIN 
REPEAT 

Blockread(Quelldatei,Puffer,1); 

Blockread(Quelldatei,Puffert 128],Puffer[0] — 1, 
BloeckeEin); 

IF Zulang THEN EXIT; 

UNTIL (Puffer(2) AND $01)>0; 

SeitenNr:=succ(SeitenNr); 

END; 

REPEAT 

Blockread(Quelldatei,Puffer,1); 

Seitenlaenge:=Puffer[0]*128-2; 

IF (Puffer[2] AND $80)>0 THEN 

StartFlag:=True ELSE StartFlag:=False, 
IF (Puffer[2] AND $01)>0 THEN 

EndFlag:=True ELSE EndFlag:=False; 
Blockread(Quelldatei.Puffer[128],Puffert0]-l, 
BloeckeEin); 

IF Zulang THEN EXIT; 

IF StartFlag THEN Seitenanfang; 

i:=13; (Textanfang] 

REPEAT 

CASE Puffer[i] OF 
$00..$1A: ; 

$20..$5A, 

$61..$7A: Out(chr(Puffer[i])); 

$83..$85: IF ((Ausgabemodus IN ['B'/D']) 
OR(Druckertyp= 0 )) 

THEN Ohnesteuerzeichen 
ELSE Mitsteuerzeichen; 

$80..$82, 

$86..$9F: LocoSonderzeichen; 

ELSE CASE KonvWahl OF 


310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 


( 1 . Textblock } 


Out(UmlautASC(Puffer[i])); 
Out(UmlautLOC(Puffer[i])); 
Out(OhneUmlaut(Puffer[i])); 


359 END; 

360 


’A' 

’L’ 

’ 0 ‘ 

END; 

END; 

i:=SUCC(i); 

UNTIL i>seitenlaenge; 

UNTIL EndFlag=True; 

SeitenNr:=succ(SeitenNr); 

END; 

close(Quelldatei); 

IF Ausgabemodus='D' THEN BDOS(32,0); 
close(Zieldatei); 

IF Ausgabemodus='B‘ THEN Weiter; 


(User= 0 ) 


(LocoDateiBearbeiten) 


Listing LOCOCON 
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LocoScript-Korrektur 

Endlospapier fest auf zwölf Zoll eingestellt... 

Es war schon etwas nervig, dieses ewige Einstellen der korrekten Zeilenzahl 
beim Endlospapier. Auf das allgemein käufliche 12-Zoll- Papier passen 
nämlich 72 Zeilen — und nicht 66, wie im Druckermenü von LocoScript 
steht. Vergaß man die Änderung, wurde das Endlospapier vom Drucker 
eben mit 66 Zeilen bemessen und der Druck ging spätestens ab dem zweiten 
Blatt quer über die Perforation. 


Geduldige Suche brachte die Adressen 
im LocoScript-Systemfile zutage, die 
die Parameter für das Seitenformat des 
Endlospapier übergeben: 

6522 - 05 : Länge der Lücke 6523 - 
42 : Anzahl der Zeilen 
Man braucht also nur den Inhalt der 
Adresse 6523, die mit 42 (hex.) = 66 
(dez.) die Zeilenzahl bestimmt, in 48 
(hex.) = 72 (dez.) zu ändern! 

Wie das geht? Die CP/M-Spezialisten 
wissen es schon und haben bereits SID 
gestartet. 

Den Debugger SID.COM (auf Seite 3 
der mitgelieferten Systemdisketten) 
mit PIP in Laufwerk M: kopieren. Eine 
Diskette mit dem LocoScript-System¬ 
file in das Laufwerk A: legen. Für die, 


die nicht wissen, was das Systemfile 
ist: das ist die Datei mit dem 'Nachna¬ 
men’ “.EMS“ auf der LocoScript-Ar¬ 
beitsdiskette. Die Systemflies kann 
man mit ’DIRSYS’ unter CP/M oder 
mit “Anzeigen von: versteckt“ unter 
LocoScript im Directory anzeigen. 
Achtung! Bitte stets Kopie des Origi¬ 
nals verwenden! Sodann 
M:SID J21 GLOCO.EMS < ENTER > 
eingeben. Der Debugger meldet sich 
nach kurzer Zeit mit: 

CP/M 3 SID - Version 3.0 NEXT 
MSZE PC END B100 B100 0100 
DAFF # 

Hinter das Nummernzeichen ' # ’ ge¬ 
ben wir ein: 
s6523 < ENTER > 


es erscheint: 

6523 42 

Der Cursor steht rechts neben der '42'. 
Dort ’48’ eingeben + < ENTER > : 

6523 42 48 < ENTER > 

Die darauffolgende Adresse erscheint 
samt ihrem Inhalt in der nächsten Zei¬ 
le, da geben wir nur einen Punkt ’. ’ und 
< ENTER > ein: 

6524 7D. < ENTER > 

Jetzt wird das Systemfile mit 

wJ21GLOCO.EMS,0100,B100 

wieder gespeichert. Der Debugger 
muß sich mit 

0160h record(s) written # 

melden. SID.COM wird dann mit 
’ <ALT>+C’ oder <STOP> ver¬ 
lassen — fertig. Alsdann muß 
J21GLOCO.EMS nur noch der Ord¬ 
nung halber mit Hilfe von SET.COM 
als Systemfile gekennzeichnet werden 
(damit es in der LocoScript Disk-Ver¬ 
waltung 'versteckt' wird): 

SET J21GLOCO.EMSÄSYSÜ. 

(H. Langbein) 


Sie wollen uns ein Programm zusenden! Folgende Regeln sollten Sie beachten: 


1) Schicken Sie Ihre Programme auf 
Kassette oder Diskette. Dabei mehr¬ 
mals hintereinander abspeichem. 6) 


2) Legen Sie eine ausführliche Pro¬ 
grammbeschreibung bei, aus der ein¬ 
deutig der Sinn und Zweck des Pro¬ 
grammes hervorgeht. Am besten 
speichern Sie die Beschreibung als 
Textfile (Wordstar, Contex, LocoSc¬ 
ript o.ä.) ebenfalls auf Datenträger. 

3) Wenn Sie gleichzeitig Besitzer eines 
Druckers sind, schicken Sie auf je¬ 
den Fall ein Programmlisting mit. 

4) Vergessen Sie Ihren Absender nicht! 
Vollständige Anschrift, wenn mög¬ 
lich auch die Telefonnummer, erspa¬ 
ren unnötige Verzögerungen unserer¬ 
seits. 

5) Behalten Sie auf jeden Fall eine Ko¬ 
pie Ihres Programms, unvorherseh¬ 
bare Umstände, wie z.B. Bandriß der 


Kassette werden somit nicht zur Kata¬ 
strophe. 

Wenn Sie sogar mehrere Programme 
geschrieben haben und diese veröffent¬ 
lichen wollen, nehmen Sie bitte für je¬ 
des Programm eine separate Kassette 
(mehrmals abspeichern!). 

Damit erleichtern Sie uns die Arbeit 
wesentlich und eine schnellere Bear¬ 
beitung wird möglich 

7) Versehen Sie das Programm mit den 
sehr wichtigen REM-Statements. Das 
fördert nicht nur die Übersicht für uns 
und unsere Leser, sondern unterstützt 
zusätzlich das strukturierte Program¬ 
mieren. Merke: Auch erfahrene Pro¬ 
grammierer verwenden REM-Zeilen, 
das Programm sollte schließlich jeder 
verstehen und anwenden können. 

8) Vermeiden Sie möglichst Variablenna¬ 
men, wo leicht I und i oder O und o 
verwechselt werden können. Variablen 
sollten grundsätzlich in Klein¬ 


buchstaben geschrieben werden und 
möglichst verständlich sein. Die Va¬ 
riable butter sagt mehr aus als nur bu. 

9) Bieten Sie das Programm niemals 
verschiedenen Verlagen gleichzeitig 
an! Mit der Veröffentlichung und dem 
daraus resultierenden Honorar, gehen 
die Urheberrechte an den Verlag 
über! Sollte Ihr Programm noch in ei¬ 
ner anderen Zeitschrift abgedruckt 
werden, liegt ein Verstoß gegen das 
Wettbewerbsrecht vor. 

10) Jedes bei uns ordnungsgemäß einge¬ 
gangene Programm wird ausführlich 
begutachtet und getestet. Sie erhalten 
von uns dann umgehend Bescheid, ob 
Ihr Programm veröffentlicht wird 
oder nicht. Wenn Sie das Programm 
nach unserer Begutachtung zurück¬ 
haben wollen, legen Sie bitte der Ein¬ 
sendung einen frankierten Rückum¬ 
schlag bei. 


Falls wir uns für den Abdruck Ihres Programmes entschieden haben, setzen wir uns unverzüglich mit Ihnen in Verbindung 
und besprechen Ihr verdientes Honorar! 

Übrigens wäre es nett, wenn Sie uns auch ein paar persönliche Daten schreiben würden (z.B. Ihr Alter, Tätigkeit, wie und 
wann kam die Idee zu dem Programm, was alles machen Sie mit dem CPC usw.?). So, jetzt aber genug der Theorie, mit fast 
unerträglicher Spannung und Neugier wartet Ihre »PC Schneider International« auf Ihre Beiträge. 

Einsendung bitte an: DMV - Daten & Medien Verlagsges.mbH, Fuldaer Straße 6, 3440 Eschwege 
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Interruptus 

BASIC-Programme getunt 

Der JOYCE und die CPC-Computer sind bekannt für ihre Schnelligkeit. In 
Benchmark-Tests schlagen sie manch andere etablierte Rechner locker (in 
BASIC sogar den Original EBM-PC!). Trotzdem wünscht man sich zu einzel¬ 
nen Anlässen, insbesondere bei rechenintensiven BASIC- Programmen, noch 
etwas mehr ’speed’. Mit einem kleinen Trick und bei geringstem Aufwand (!) 
läßt sich die BASIC-Geschwindigkeit aller Z 80- Rechner um etwa 1/6 stei¬ 
gern. Doch zunächst eine kurze Erläuterung: 


Während ein Computer in Betrieb ist, 
fragt die CPU in regelmäßigem Ab¬ 
stand die Tastatur ab, ob eine Taste ge¬ 
drückt wurde oder nicht. Das tut die 
CPU anläßlich eines sogenannten In¬ 
terrupts, einer Unterbrechung des ge¬ 
rade laufenden Rechenvorgangs. Wie 
alles im Computer-Leben, kostet diese 
Abfrage etwas Zeit. Bei einem lauffa- 
higen Programm, welches umfangrei¬ 
che Berechnungen anstellen soll, wäre 
die Tastatur-Abfrage während der Re¬ 
chenvorgänge reine Zeitverschwen¬ 
dung. Es drängt sich die Überlegung 
auf, zum Zwecke der Zeitersparnis die¬ 
se Abfrage irgendwie abzuschalten. 

Es gibt tatsächlich einen Maschinenbe¬ 
fehl, der den Interrupt und damit die 
Möglichkeit der Tastaturabfrage, zu¬ 
mindest vorübergehend lahmlegt: 
&HF3 (in Assembler: ’DI’ = disable 
interrapt = 'setze Interrupt außer 
Kraft’). Mit einer einfachen, superkur¬ 
zen Maschinenroutine kann man den 
Befehl in ein beliebiges BASIC-Pro- 
gramm einbauen. Man muß dazu nur 


&HF3 in eine passende Speicherstelle 
poken und dafür sorgen, daß der Rech¬ 
ner den Befehl erhält und nach Ausfüh¬ 
rung des Befehls die Arbeit im Pro¬ 
gramm wieder aufhimmt. In einem 
dem GOSUB gleichenden Unterpro¬ 
gramm-Aufruf, kann man von BASIC 
aus die Routine abrufen: CALL ’adres- 
se’. Die Speicherstelle ’adresse’ ent¬ 
hält &HF3; die Speicherstelle 
’adresse+l’ enthält den Befehl zum 
Rücksprung in das laufende BASIC- 
Programm: &HC9 - in Assembler: 
’RET’ = retum). 

Dabei muß man aber keine Angst ha¬ 
ben, daß von nun ab keine Tasteneinga¬ 
ben mehr möglich seien, denn jeder 
Ein-/Ausgabebefehl schaltet den Inter¬ 
rupt automatisch wieder an: nach allen 
PRINT’s, INPUT’s, OPEN’s usw. 
(also auch PRINT#, LPRINT, 
FETCHxxx u.a.) verliert ’DI’ an Wir¬ 
kung. Somit definiert sich der Anwen¬ 
dungsbereich von selbst: nur bei zeitin¬ 
tensiven Rechenoperationen ist ’DI’ 
sinnvoll. Der Aufruf ’CALL adresse’ 


sollte unmittelbar vor solchen Pro¬ 
grammteilen stehen (denn jedes noch 
so laubige 'PRINT... ’ macht ja die gan¬ 
ze Sache rückgängig). Und falls zwi¬ 
schendurch im Programm doch ein 
Ein-/Ausgabebefehl kommt, muß man 
eben 'DF erneut durch 'CALL adres¬ 
se’ aufrafen - ganz einfach. 

Im Listing verwende ich für ’adresse’ 
&HFOOO. Hier sind die beiden Maschi¬ 
nenbefehle untergebracht. In Zeile 140 
soll der Rechner eine bestimmte Varia¬ 
ble 1000 mal berechnen. In Zeile 130 
wird die Sub-Routine aufgerufen. 

Die Ablaufgeschwindigkeit solcher 
Programmteile steigt um den Faktor 
1,2 - für den geringen Aufwand ganz 
ordentlich (fahren Sie lieber mit 100 
oder 120 km/h von München nach 
Hamburg?). Den Zeitgewinn kann man 
nachprüfen, indem man die Zeit einmal 
mit Zeile 130 und einmal ohne sie mißt. 
Der JOYCE braucht im ersten Fall ca. 
15,7 sec., im zweiten 18,8 sec. (Der 
Befehl OPTION RUN ergab übrigens 
in beiden Fällen keine maßgebliche 
Geschwindigkeitserhöhung! Bei den 
GSX-Programmen allerdings — PC In¬ 
ternational Nr. 12/86 bis 2/87 - konn¬ 
te erst die Kombination von ’DI’ und 
OPTION RUN eine wirksame Be¬ 
schleunigung erzeugen.) 

Und nicht vergessen: während der In¬ 
terrupt abgeschaltet ist, reagiert der 
Rechner nicht auf STOP, BREAK, 
CTRL -F C und CTRL+S. Beim JOY¬ 
CE ist noch nicht einmal ein Reset 
durch SHIFT+EXTRA+ EXIT mög¬ 
lich! (Letzteres übrigens im Gegensatz 
zu OPTION RUN). 

(H. Langbein) 


LISTING >INTERRPT<, REMARK = >REM<. 


<56> 80 PRINT:PRINT:PRINT "STOPP-UHR BEREITMACHEN" 

<18> 10 adresse=&HFOOO:MEMORY adresse-1 


<61> 90 PRINT 



<0?> 100 PRINT "ZUM ANFANGEN EINE TASTE DRÜCKEN" 

ALC'AH" + *$) : NEXT 


<75> 110 A$=INKEY$ 

< 76 > 30 DATA F3,C9:REM 'DI', ‘RET' 


<74> 120 WHILE A$=" 11 : A$=INKEY$ : WEND 

<87> 40 PRINT CHR$(27) + "E"+CHR$(2 7) + "H"; 


<63> 130 PRINT CHR$(7) 

<53> 50 PRINT CHR$(7) 


< 4> 140 CALL adresse 

■ <36> 60 PRINT "ZEIT-GEWINN DURCH ‘DI’" 


< 77 > 150 FOR x— 1 TO 1000:xx#=SIN{x)/3.14159: NEXT 

< 71 > 70 PRINT ■' = = = = *== = === ====== = == = =" 


< 75 > 160 PRINT CHR$(7);CHR$f7);"FERTIG I!" 
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PRINTPIC 

- so schnell arbeitet ihr Drucker! 


; Programm 

PRINTPIC zum Ausdrucken von PIC-Dateien 

; (o) Carsten Mayer, 3.1.07 


bdos 

equ 

0005h 


warmstart 

equ 

0000h 


dmapuffer 

equ 

80h 


* 

org 

0100h 



jmp 

Start 


g raf ikzel: 

db 

27,'L',208,2 



ds 

720 



db 

10,13 


kopfzei: 

db 

0 


zbuf : 

db 

3.0 


zahl : 

ds 

3 


pf cb: 

dw 

fi1e,fcb 


fcb: 

ds 

36 


buf: 

db 

12,0 


f Ile: 

ds 

12 


str: 

db 

10,10,13, 'Pal sehe Eingabe !$' 

text: 

db 

10,10,13,'PRINTPIC 1.01',10,10,13 


db 

' Fi 1ename : $ 


Option: 

db 

10,10,13,'Optionen Cj/n) $' 

nof 1 le: 

db 

10,10i13,’F11e nicht vorhanden <',10,10,13,'$' 

fdat: 

db 

10,10,13,'ung)1tiger Filename !',10,10,13,'$' 

textl: 

db 

10,13,'Invers 

(j/n) ? $' 

1rtxt: 

db 

10,13, ' linker 

Rand ? $' 

rrtxt: 

db 

10,13, ‘ rechter Rand ? $' 

kopftxt: 

db 

10,13,'Kopfzeilen ? $ ' 

drkln1t: 

db 

27, ' A ' , 8 


1 rstr : 

db 

27, ' 1 ' ,0 


rrstr : 

db 

27, ’Q' ,0 


ccbl : 

dw 

d rkinit, 3 


ccb2: 

dw 

graf 1 kzei,726 


1rccb: 

dw 

1rstr , 3 


r rccb : 

dw 

r rstr, 3 


ext: 

db 

' PIC' 


; ************************************************************************ 

Start 

1x1 

sp,Of500h 

Stackpointer init1al1sieran 


mvi 

C, 112 

BDOS Funktion LIST BLOCK 


1 x 1 

d,ccbl 

Zei1enabstand 8/72 Zoll 


ca 1 1 

bdos 

ans BDOS 


1 xi 

d,text 

Eingabemeldung + Auforderung, 


ca 1 1 

prl nt 

den Filenamen einzugeben 


mvi 

c, 10 

BDOS-FUNKTION INPUT STRING 


1 xi 

d.buf 

Zeiger auf Eingabepuffer 


cal 1 

bdos 

ans BDOS 


mvi 

C, 152 

BDOS FUNKTION PARSE FILENAME 


1 xi 

d,pfcb 

= FCB aufbauen 


cal 1 

bdos 

Bei Fehler ist BC = FFFFh 


1 nx 

b 

Fehlerkontrolle 


mov 

a, b 



...komfortabler 
UND schneller 
Ausdruck von 
LOGO-Bildern 

Es gibt zwei Möglichkeiten, um mit 
DR LOGO erstellte Grafiken zu Pa¬ 
pier zu bringen. Entweder man er¬ 
stellt eine Hardcopy durch 
<EXTRA> + <PTR>, oder man 
benutzt COPYPIC (CPC-Internatio- 
nal, 8/86). Beide Methoden haben 
Nachteile: Die Hardcopy ist zwar 
sehr schnell, bietet aber nur ein 
kleines Format und keine Randein- 
stellung. COPYPIC erlaubt zwar 
Randeinstelbmg und bietet ein grö¬ 
ßeres Format, ist aber kläglich lang¬ 
sam. 

Deswegen entschloß ich mich, ein Pro¬ 
gramm zu schreiben, das die Vorzüge 
beider Methoden vereint, also Rand¬ 
einstellung ermöglicht, ein großes For¬ 
mat bietet und schnell ist und darüber 
hinaus noch weitere Vorzüge aufweist. 
Das Programm sollte nicht in Mallard- 
BASIC geschrieben werden, weil es 
viel Zeit kostet, vor jeder Benutzung 
erst den BASIC-Interpreter zu laden. 
Diese Aufgabe konnte nur durch ein 
Assemblerprogramm befriedigend ge¬ 
löst werden. 
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Ora 

C 



J2 

uname 



1 da 

fcb+9 

; Byte 1 der Extension in den Akku 


cpl 

32 

; Extension vorhanden ? 


jn2 

options 

; Wenn ja, dann weiter 


1x1 

d,fcb+9 

; Zieladresse 


1x1 

h, ext 

; Anfangsadresse 


lxi 

b,3 

; Blockl[nge 


db 

Oedh.ObOh 

; Z0O: ldir, Extension ln FCB laden 

options 

1x1 

d,option 

; Abfrage : Optionen (j/n) 


cal 1 

print 



mv 1 

c , 1 

; bdos-Funktion console input 


cal 1 

bdoa 

; Liest ein Zeichen von der Tastatur 


an 1 

223 

; Zeichen ln Gro’buchstaben umwandeln 


cpi 

' N ' 

; Wenn Zeichen = 'N', 


j2 

1 esen 

; Iberspringe Einstellung der Optionen 


} x i 

d, textl 

; Einstellung des Druckmodus (invers/norma1) 


cal 1 

print 



mvl 

c, 1 

; BDOS-FUNKTION CONSOLE INPUT 


call 

bdos 



ani 

223 

; Zeichen in Großbuchstaben umwandeln 


cpi 

' J ' 

, Wenn Zeichen = 'J', 


cz 

makeinv 

; dann Befehl CPL einfjhren 


lxi 

d.1rtxt 

; Linken Rand einstellen 


cal 1 

print 



mv 1 

c. 10 

; BDOS-FUNKTION INPUT STRING 


lxi 

d, zbuf 

I Zahl als String einiesen 


call 

bdos 



1 da 

zbuf +1 

; Wird nur RETURN gedrjckt, 


cpi 

0 

i dann Einstellung des linken 


jz 

r ranfl 

. Randes Jberspringen 


cal 1 

konvert 

; String in Zahl umwandeln 


sta 

1rstr +2 

; Zahl in Druckstring einfjhren 


mv 1 

c, 112 

; BDOS-FUNKTION LIST BLOCK 


1x1 

d , 1 rccb 

; String an Drucker 


ca 1 1 

bdos 


' fand 

1 x i 

d,rrtxt 

; Rechten Rand einstellen 


Cal 1 

pr i nt 



mv 1 

c, 10 

; BDOS-FUNKTION INPUT STRING 


lxi 

d,zbuf 

, Zahl als String einiesen 


cal 1 

bdos 



1 da 

zbuf +1 

; Wird nur RETURN gedrjckt, 


cpi 

O 

; dann Einstellung des rechten 


U 

köpf 

; Randes Jberspringen 


cal 1 

konvert 

; String in Zahl umwandeln 


ata 

rrstr+2 

, Zahl in Druckstring einfjhren 


mv 1 

c. 112 

; BDOS-FUNKTION LIST BLOCK 


lxi 

d.r rccb 

; String an Drucker 


ca 1 1 

bdos 


köpf 

1 x i 

d, köpftxt 

; Kopfzeilen einstellen 


cal 1 

print 



mvi 

c, 10 

, BDOS-FUNKTION INPUT STRING 


1 x i 

d.zbuf 

; Zahl als String einiesen 


cal 1 

bdos 



cal 1 

konvert 

; String in Zahl umwandeln 


sta 

köpf 2 ei 

; Zahl in Speicherste11e laden 

1 esen 

mvl 

c, 15 

; BDOS-FUNKTION OPEN FILE 


lxi 

d, f cb 

; !ffnen der Datei 


cal 1 

bdos 



cpi 

0 

; Bei Erfolg ist Akku = O 


jnz 

kdatei 

j Bei Fehler ist kein File vorhanden 


1x1 

d,f11ebf 

; Einlesen der gesammten Datei 

1 OOp2 

push 

d 

; in den freien Speicher 


mvl 

c, 20 

. BDOS-FUNKTION READ SEQUENTIAL 


1 x 1 

d , f cb 

; Zeiger auf FCB 


cal 1 

bdos 

, Bei Erfolg ist Akku = O 


cpi 

0 

; Fehlerkontrol1e 


jnz 

sch!ss 

; Schlie'en bei Fehler 


pop 

d 

; DE Zieladresse des Records 


lxi 

b, 120 

; L{nge des Records 


1 xi 

h.dmapuffBr 

; Anfandsadresse des DMA-Puffers 


db 

Oedh,ObOh 

; Z80: ldir, Block kopieren 


jmp 

1 oop2 

; Rjcksprung 

schiss 

mvi 

c . 16 

; BDOS-FUNKTION CLOSE FILE 


lxi 

d, f cb 

; Zeiger auf FCB 


cal 1 

bdos 

; Datei schlie'en 

****»********************««**************«*«*«***«***********:*«*** 

* 


Ausdruck * 

****************************************************************** 


Ida kopfzel 

; Anzahl der Kopfzeilen in den Akku 


cpi 0 


; Ausdruck der Kopfzeilen Jberspringen, 


jz druck 

; falls O Kopfzel1en 


mov b 

a 

, B = Schl eifenz{hler 


mvl c 

10 

; IO = LINEFEED 

oop5 

push b 


BC retten 


cal1 Ofdeah 

; BIOSFUNKTION LIST 


pop b 


; BC wiederholen 


b 


;B flecr.ementieren 


Der abgedruckte Quelltext ist an den 
Assembler MAC von Seite 3 der Sy¬ 
stemdisketten angepaßt, weil dadurch 
jeder PC International- Leser das Li- 
sting abtippen kann. Z80-Programmie- 
rer erhalten selbstverständlich den 
Z80-Code auf der DATABOX. 

Als Editor empfehle ich LocoScript 
oder andere Editoren, die ASCII- Files 
erzeugen können. Wichtig: Das Listing 
ist ca. 280 Zeilen lang; einige Editoren 
können nur Dateien bis zu einer be¬ 
stimmten Länge erstellen - RPED z.B. 
bis 200 Zeilen. Deswegen rate ich je¬ 
dem, der keinen anderen Editor hat, zu 
LocoScript. Tippen Sie das Programm 
ab und speichern Sie es unter Loco¬ 
Script in Gruppe 0 als PRINT- 
PIC.LOC. Wandeln Sie es in der Disc- 
Verwaltung mit f7 in eine ASCII-Datei 
(unformatiert) mit dem Namen 
PRINTPIC. ASM um. Kopieren Sie auf 
eine leere Diskette von Seite drei der 
Systemdisketten die Programme MAC 
.COM und HEXCOM.COM und 
schließlich PRINTPIC.ASM. 

Assemblieren Sie das Programm durch 
’ A > MAC PRINTPIC < RETURN > ’. 
Geben Sie danach ein: 

’A > HEXCOM PRINTPIC 
< RETURN >’ Vergleichen Sie die 
Bildschirmausgaben von MAC und 
HEXCOM mit denen in Abbildung 1. 
Sie müssen übereinstimmen, sonst ha¬ 
ben Sie etwas falsch gemacht. Auf ih¬ 
rer Diskette befindet sich jetzt das ferti¬ 
ge Programm PRINTPIC.COM. Ko¬ 
pieren Sie es mit PIP auf ihre LOGO- 
Diskette. Ihre Arbeitsdiskette mit DR 
LOGO können Sie jetzt umgestalten. 
Sie benötigen keine PRT-Dateien 
mehr. PRINTPIC ist so schnell, daß 
Sie auch ohne auskommen; BA¬ 
SIC.COM und COPYPIC.BAS sind 
ebenfalls überflüssig. Löschen Sie alle 
diese Files. 


Benutzung des Programms: 

1. Ich gehe davon aus, daß Sie sich mit 
DR Logo auskennen und schon einige 
Bildschirminhalte abgespeichert haben. 


CP/K Plus Anstrad Consunor Electronics plc 
v 1.4, 61X TPA, 2 Laufwerke, 368K Laufwerk H: 


ft)nac printPic 
CP/11 «ftCRO ASSEN 2.0 
CG9F 

0Q3H USI FACTOR 
m OF ASSEHBLV 


A)hexco« prmtpic 
REXCON VERS: 3.00 

FIRST ADDRESS 0100 
LAST ADDRESS 069D 
BYTES READ 029B 
RECORDS «RITTEN OC 


A)| 


Abb.l: So sollte die Generierung von PRINT¬ 
PIC. COM aussehen... 
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jnz loop5 ; Ricksprung 

d ruck 

1 x1 

d,fl 1ebf+ 38 

0E enth{lt Zeiger in der Datei 


mv 1 

b, 32 

32 Druckzeilen zu berabeiten 

n 1 1 ne 

push 

b 

Schl eifenz{1 er retten 


mv i 

b, 8 

8 Grafikzeilen zu bearbeiten 

prtline 

push 

b 

Schl eifenz{h1 er retten 


mv i 

b,90 

90 Bytes zu bearbeiten 


1 xi 

h . grafikzei+4 

HL an den Zeilenanfang 

1 i ne 

1 dax 

d 

Byte zum bearbeiten in den Akku 

1 nv 

nop 


Platz f}r CPL 


push 

b 

Schl eifenz{hler retten 


mv 1 

b, 8 

8 Bits zu bearbeiten 

Byte 

ral 


A mit Carry rotieren 


db 

0 cbh.01.6h 

Z80: rl (hl), Carry in Grafikzeile 




rotie ren 


1 nx 

h 

Ze l ge r e r h1hen 


der 

b 

B decrementieren 


Jnz 

by te 

RIcksprung 


pop 

b 

BC vom Stapel holen 


1 nx 

d 

Zeiger auf nfchstes Byte 


der 

b 

B decrementieren 


Jnz 

1 i ne 

Ricksprung 


pop 

b 

BC vom Stapel holen 


de r 

b 

B decrementieren 


jnz 

p rt1 Ine 

Ricksprung 


push 

d 

Zeiger retten 


mvi 

C, 112 

BDOSFUNKTION LIST BLOCK 


1 x i 

d,ccb2 

Grafikzeile ausdrucken 


cal 1 

bdos 



pop 

d 

Zeiger wiederholen 


pop 

b 

Schl eifenz{hler wiederholen 


der 

b 

B decrementieren 


jnz 

n 1 i ne 

R) cksprung 

* 

jmp 

warmstart 

Prog rammende 

* 

; ************************************************************** 

f i n 1 s 

cal 1 

print 



jmp 

warmstart 


pr i nt 

mvi 

c , 9 

BDOSFUNKTION PRINT STRING 


cal 1 

bdos 



ret 



makeinv 

mv i 

a,02 fh 

Befehl CPL 


sta 

i nv 

Befehl ins Programm einflgen 


ret 



uname 

1 x i 

d,fdat 



jmp 

f i n i s 


kdatei 

1 x i 

d,nof 11 e 



jmp 

f ini s 


fehl er 

1 x i 

d.Str 



jmp 

f 1 ni s 


; Unterprogramm zum Umwandeln von Strings in Ganzzahlen 

konve rt 

1 x1 

h,zahl +2 

HL enth{1t Zeiger im String 


mvi 

d, 1 

D enth{lt Summanden 


mvi 

a,0 

A enthalt Ergebnis 


mvi 

b, 3 

B = Schl eifemz{hl er 

1 oop4 

push 

b 

Schl eifenz{hl er retten 


push 

psw 

Ergebnis retten 


mov 

a ,m 

Ziffer holen 


epi 

0 

Test, ob Ziffer vorhanden 


jnz 

weiter 

Wenn ja, dann weiter 



psw 

Wenn nicht, dann Stack wiederher- 


jmp 

next 

stellen und n{cbste Stelle holen 

weiter 

sui 

48 

ASCII in Dezimale umwandeln 


jm 

fehler 

Test, ob Ziffer im Bereich 


epi 

10 

von '0' - '9' ist 


ip 

fehl er 



mov 

b , a 

B = Schleifenz{hler 


mv i 

a.O 

Ergebnis zu 0 machen 

addl 

add 

d 

jeweilige Stelle addieren (1,10,100) 


der 

b 



jnz 

addl 

R)cksprung bis B = 0 


mov 

c , a 

neues Ergebnis retten 


pop 

psw 

altes Ergebnis holen 


add 

c 

aufaddieren 


push 

psw 

Ergebnis retten 


mov 

a, d 

Summand nach A 


mvi 

b, 9 

B = Schleifenz{hler 

add2 

add 

d 

Aufaddieren 


der 

b 



jnz 

add2 

Ricksprung : D=0*10 


mov 

d , a 

neuen Summanden nach D laden 


pop 

psw 

Ergebnis wiederholen 

next 

pop 

b 

Schl eifenz{hler wiederholen 


dex 

h 

Zeiger erniedrigen 


der 

b 



jnz 

1 oop4 

R}cksprung : 3 Stellen 


mvi 

b, 3 

B = Schleifenz{hler 


Ixi 

h, zahl 

Stringspeicher zu 0 machen 

1 oop6 

mvi 

m, O 

um Speicherstelle wiederver- 


1 nx 

h 

wenden zu klnnen 


der 

b 



jnz 

1 oop6 

Rjcksprung 


ret 



f i lebf 

end 




2. Das Programm wird auf der CP/M- 
Ebene durch PRINTPIC < RETURN > 
gestartet. Es erscheint die Programm¬ 
meldung und PRINTPIC fordert den Be¬ 
nutzer auf, den Namen der zu drucken¬ 
den PIC-Datei einzugeben. Die Exten¬ 
sion braucht nicht angegeben zu werden. 
Wird doch eine Extension angegeben, so 
benutzt PRINTPIC diese. Es ist ebenfalls 
möglich, PIC-Dateien von anderen Lauf¬ 
werken zu drucken. Dazu wird, wie be¬ 
kannt, dem Dateinamen die Laufwerks¬ 
bezeichnung plus vorangestellt, z.B. 
’m:test.pic\ 

3. Es erscheint die Frage: 'Optionen 
(j/n)’. Wird die Taste V oder ’N’ ge¬ 
drückt, beginnt PRINTPIC sofort mit 
dem Drucken. Bei jeder anderen Taste 
beginnt das Programm mit der Einstel¬ 
lung der folgenden Optionen. Grundsätz¬ 
lich gilt: Wird bei der Einstellung einer 
Option nur < RETURN > gedrückt, 
bleibt die alte Einstellung erhalten. Da¬ 
durch muß z.B. ein schon eingestellter 
Rand nicht bei jedem Ausdruck neu ein¬ 
gestellt werden. 

4. Es erscheint die Frage: ’invers (j/n) ’. 
Beim Drücken der Taste ’j’ oder ’J’, wird 
die Datei invertiert ausgedruckt, d.h. 
schwarz und weiß werden vertauscht. 
Beim Drücken einer anderen Taste 
druckt PRINTPIC normal. 

5. Es erscheint der Ausdruck: 'linker 
Rand’. Nun kann der linke Rand einge¬ 
stellt oder die Einstellung durch < RE¬ 
TURN > beibehalten werden. 

6. Es erscheint der Ausdruck: 'rechter 
Rand’. Dieser Teil läuft wie 4. ab. 

7. Es erscheint der Ausdruck: ’Kopfzei- 
len'. Kopfzeilen sind Leerzeilen, die vor 
der Grafik ausgedruckt werden. Dadurch 
können PIC-Bilder in LocoScript-Texte 
an der dafür vorgesehenen Stelle einge¬ 
bunden werden. Bei der Eingabe von 
< RETURN > werden keine Leerzeilen 
ausgedruckt. 

Durch PRINTPIC können Grafiken von 
DR LOGO endlich mit vernünftigem 
Zeitaufwand sauber zu Papier gebracht 
werden. Ich wünsche Ihnen viel Freude 
mit diesem Programm. 

(C. Mayer) 



Abb. 2: Ausdruck von TEST.PIC (Databoxj 
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Joyce 

Sonderheft 2/87: 

Nachdem das erste Sonderheft im April des Jahres 
ein wirklicher Renner geworden ist, sind wir stolz, Ih¬ 
nen das zweite vorstellen zu dürfen. Wieder enthält 
das Sonderheft eine sorgfältig erstellte Mischung von 
Programmen, Berichten und Tips zu jedem Anwen¬ 
dungsgebiet der Schneider-Rechner PCW 8256/8512. 


Aus dem Inhalt: 

Eine Marktübersicht zeigt Software, Hardware und 
Zubehör für Joyce auf einen Blick. 

Pascom ist ein in MalJard-Basic geschriebener 
Compiler zum Kennenlernen der Programmier¬ 
sprache Pascal. 

Eine relative Adress- und Archivverwaltung stellt ein 
nützliches Werkzeug zur Verwaltung Ihrer Dateien 
dar... 

Zur dreidimensionalen Darstellung von mathemati¬ 
schen Funktionen dient der 3D-Funktionsplotter. 

Übersichtliche Darstellung von Basic-Listings mit 
Hervorhebung von GOTO und GOSUB ermöglicht 
der LISTER. 

Garantiert ohne GSX arbeitet die Turbo-Pascal- 
Grafikerweiterung, ein Super-Werkzeug für alle 
Pascal-Fansl 



Adreß- und 
Archiv Verwaltung 


Hardware: 

Zweitlaufwerk 

Tlirbo 
Grafik 


Joyce Databox Sonderheft 2/87: 


Funktionstastenbelegung ist kein Problem mehr. 
Das kleine Basic-Programm fordert Sie zur Eingabe 
der Bedeutung der Tasten fl — f8 auf und speichert 
das Ergebnis fertig für die Startdiskette ab... 

Tips zu LocoScript unterstützen den Textprofi: wie 
wär’s mit vierspaltigem Druck? 

dBase2: was Sie schon immer über Installation und 
Arbeit mit diesem System wissen wollten; viele Tips 
aus dem »Nähkästchen«... 

Auch diesmal stellt das Sonderheft einige nützliche 
Prozeduren zu LOGO zur Verfügung. 

.. .und vieles andere mehr! 

Das Joyce-Sonderheft 2/87 ist beim Verlag, beim guten 

Buchhandel und im Bahnhofsbuchhandel 

ab 15. Oktober 1987 zum Preis von 20,- DM erhältlich. 


Die Databox platzt aus allen Nähten! Uber480 kB an Daten ste¬ 
hen auf drei Diskettenseiten zur Verfügung: alle Programme 
und Dateien aus dem Sonderheft finden Sie hier lauffähig vor. 


Inhalt: 

Diskette 1: 

- 3D-Plotter 

- Pascal-Compiler 

- dBase-CMDs 

- dBase-Handbuch 

- Kybernetik-Lernspiel 

- Quickregister 

- Spaltendruck (LocoScript) 

- Entscheidungsgenerator 

- Grafmod-Erweiterung 


- Adressverwattung 

- Archiv-Verwaltung 

- Balkenmenue 

- Funktionszeichner (LOGO) 

- Kalender 

- Labelprinter 

- Lister f. Basicprogramme 

- Funktionstastenprogramm 

- Suburbia: Brettspiel 
ähnlich MONOPOLY 


u.a.m., insgesamt ca. 310 kB auf 2 Seiten 


Alle im Heft veröffentlichten Programme sind auf 
3“ Diskette erhältlich (insgesamt über 480 kB!). 



Diskette 2: 

Alle Dateien für die Turbo-Pascal-Grafik-Toolbox: Quellcode und Demo- 
Dateien im Source- und Kommandoformat - 170 kB Daten! 


Bestellkarte ausfüllen und absenden an: 

DMV Daten- und Medien-Verlagsgesellschaft mbH 
Postfach 250 • Fuldaer Str. 6 
3440 Eschwege * Tel. (0 56 51) 87 02 
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Von CP/M 

zu MS-DOS 

Teil 13 

In der letzten Folge haben Sie die Grundlagen der Batch-Verarbei¬ 
tung unter MS-DOS kennengelernt. Heute widmen wir uns noch¬ 
mals diesem Thema. Sie erfahren einige Spezialitäten, die die 
Stapelverarbeitung zu einem leistungsfähigen Instrument machen. 


Nach links geschoben 

Der zwölfte Teil des MS-DOS-Kurses 
schilderte ausführlich die Grundlagen 
der Erstellung von Batch-Dateien. Die¬ 
ses Thema ist ungemein vielfältig, weil 
Microsoft von DOS-Version zu DOS- 
Version immer wieder Veränderungen 
durchführte, die in vielen Handbü¬ 
chern nicht dokumentiert sind. 

So kennen Sie bisher schon die Substi¬ 
tution von Scheinparametem, die als 
% 1 bis %9 benannt sind: 

FORMAT SEI 
C0PYS2D:*3 >24 

Was passiert nun aber, falls Sie jemals 
mehr als neun Parameter benötigen? 
Die Bezeichner %10, %11 usw. wer¬ 
den von MS-DOS nicht akzeptiert. Sie 
können aber die Parameter der Reihe 
nach von oben nach unten kopieren. 
Dafür gibt es den residenten Befehl 
SHIFT: 

TYPE 361 
SHIFT 
TYPE /El 

SHIFT bewirkt, daß alle Parameter um 
eins nach links gezogen werden. Neh¬ 
men wir an, die Kommandozeile zum 
Starten einer Batch-Datei hieße: 

A>GO A B C D E 

Dies veranlaßt MS-DOS zu den folgen¬ 
den Zuweisungen: 

%i = k 
%2 = B 
%3 = C 

24 = D 
*5=E 

Sie können auf diese Parameter in der 
Batch-Datei beliebig zurückgreifen. 
Sobald Sie aber den SHIFT-Befehl ein¬ 
geben, verändern sich die Zuweisun¬ 
gen wie folgt: 

21 = B 
%2 = C 


23 = D 
564 = E 
25 = leer 

Der Parameter “A“ geht verloren, der 
letzte Parameter — hier %5 — wird 
leer. 

Beim nächsten SHIFT-Kommando 
wird ein ähnliches Umkopieren vorge¬ 
nommen. Sie können SHIFT so oft 
wiederholen, wie Parameter vorhan¬ 
den sind. 

Allerdings werden Sie wirklich in den 
seltensten Fällen mehr als neun Substi¬ 
tutionsparameter benötigen. Der 
Hauptzweck von SHIFT liegt vielmehr 
an einer anderen Stelle. SHIFT soll es 
ermöglichen, in einer Schleife mehrere 
Parameter an denselben Befehl zu 
übergeben. 


Ein neuer ERASE-Befehl 


Nehmen wir ein einfaches Beispiel. Si¬ 
cher hat es Sie schon einmal gestört, 
daß der ERASE-Befehl von MS-DOS, 
der Dateien löscht, stets nur einen ein¬ 
zigen Dateinamen akzeptiert. Das hat 
zur Folge, daß man zum Löschen meh¬ 
rerer Dateien auch mehrmals ERASE 
aufrufen muß. Die zu schreibende 
Batch-Datei REMOVE.BAT soll da 
komfortabler sein und beliebig viele 
Dateinamen akzeptieren. Ein erster 
Prototyp könnte so aussehen: 

ECHO OFF 
: SCHLEIFE 

ECHO Es wird gelöscht: %1 

ERASE tl 

SHIFT 

GOTO SCHLEIFE 

Der einzige Scheinparameter, der in 
der Batch-Datei verwendet wird, ist 
% 1. Und doch werden alle Dateinamen 


in der Kommandozeile bearbeitet. Das 
wird durch SHIFT erreicht. Es bewegt 
der Reihe nach alle Parameter in die 
Variable % 1. 

Einen Schönheitsfehler hat REMOVE. 
BAT aber noch. Die Endlosschleife 
muß nämlich mit Control-C oder Con¬ 
trol-Break gestoppt werden. 

Aber dem läßt sich schnell abhelfen. Es 
muß lediglich vor dem Sprung zurück 
in die Schleife geprüft werden, ob der 
aktuelle Parameter, der gerade nach 
% 1 geSHIFTet wurde, leer ist. Ist er 
das, sollte die Batch-Datei beendet 
werden. 

ECHO OFF 
:START 

ECHO Es wird gelöscht: %1 

ERASE 561 

SHIFT 

IF 5611 == ! GOTO ENDE 

GOTO START 

:ENDE 

Was hier stört, ist die umständliche 
Programmierung der Sprunganweisun¬ 
gen. Sie erinnert fatal an die allerersten 
BASIC-Interpreter, die Konstruktio¬ 
nen wie IF NOT A=3 THEN nicht ge¬ 
statteten. 

Dabei kann MS-DOS die IF-Konstruk- 
tionen doch negieren! Sie schreiben 
einfach IF NOT ... GOTO, und MS- 
DOS akzeptiert das ohne Murren. Ver¬ 
einfachen wir also REMOVE.BAT: 

ECHO OFF 
:START 

ECHO Es wird gelöscht: 561 

ERASE %1 

SHIFT 

IF NOT $1! == ! GOTO START 

Ganz allgemein gilt, daß Sie Batch-Da¬ 
teien möglichst kompakt halten sollten. 
Damit erreichen Sie, daß die Abarbei¬ 
tungsgeschwindigkeit relativ hoch 
bleibt. 


Zugriff auf das Environment 

Die %-Parameter sind nicht der einzige 
Weg, um mit Batch-Dateien zu kom¬ 
munizieren. Der Anwender kann auch 
die Environment-Variablen benutzen, 
die bereits im zehnten und elften Teil 
dieser Artikelserie besprochen 
wurden. 

Um es Ihnen wieder ins Gedächtnis zu 
rufen: Mit SET NAME=Zeichenkette 
definieren Sie eine Environment-Va- 
riable, mit SET rufen Sie die Liste der 
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-;'nierten Environment-Variablen ab. 

H.i r.eht zwar in kaum einem Hand- 
' _:n. aber Sie können in Batch-Datei- 
den Inhalt einer Environment-Va- 
~i.r’:en ermitteln. Dazu umgeben Sie 
'-tn Namen mit Prozentzeichen. Inter¬ 
nen Sie zum Beispiel der aktuelle 
i .chpfad, können Sie schreiben: 

:??ath* 

leider funktioniert dieses Verfahren 
;-^schließlich in Batch-Dateien. Im 
l.rektmodus spricht ECHO darauf 
* ::ht an. 

v e können die Environment-Variablen 
“it IF abfragen, genau wie die Substi- 
-tionsparameter: 

. r ??ATH %[ == ! THEN ENDE 

Eine nützliche Anwendung findet 
~PATH%, wenn es darum geht, den 
Suchpfad zu erweitern. Sie wissen ja: 
Findet MS-DOS eine Programmdatei 
rieht im aktuellen Verzeichnis, schaut 
--> in der mit SET PATH definierten 
Pfadliste nach, ob sich das Programm 
n einem anderen Verzeichnis ver¬ 
deckt. 

Üblicherweise ändert man den Such- 
-i'ad in der Datei AUTOEXEC.BAT, 
die beim Systemstart automatisch aus- 
ceführt wird. Will man aber später den 
Päd erweitern, geht dies nur, indem 
man den kompletten alten Pfad abtippt 
*nd entsprechend ergänzt. Bei länge¬ 
ren Suchlisten kann das ganz schön 
-mständlich sein. Das folgende 
bDDPATH.BAT ist der wohl nütz- 
chste Batch-Einzeiler überhaupt: 

. ET PATH=%PATH $;%1 

Sie können ihn mit ADDPATH 
C:\TM aufrufen. Er erweitert den 
Suchpfad um den genannten Verzeich- 
niseintrag. Hieß der Pfad vorher 
C: \ SYS;.. \ , dann lautet er nach Ab¬ 
arbeitung der Batch-Datei C: \SYS;.. 
;C:\TM. 

Hin anderes Einsatzgebiet betrifft wie- 
:er einmal den altmodischen Word¬ 
star. In Folge 11 der Artikelserie fan¬ 
den Sie eine Befehlsfolge, die Word¬ 
star verzeichnisunabhängig macht. 
Wiederholen wir sie noch einmal: 

::: path=\ws 

AFFEND \WSA: 
datei 

Diese Lösung besitzt aber den Nach- 
:eil, daß sie den Suchpfad zerstört und 
Tiit \ WS überschreibt. Mit den neu¬ 


erworbenen Kenntnissen über die klei¬ 
nen DOS-Geheimnisse können wir das 
als Batch-Datei verfeinern: 

SET PATH= \WS;5?PATH% 

APPEND \WSA: 

WS %1 

Nennen Sie diese kurze Datei beispiels¬ 
weise ED.BAT, können Sie sie auf 
zwei Arten starten: 

OED - Sie landen im Hauptmenü 
OED BRIEF - die Datei wird geladen 


Schachtelung mit Problemen 

Manchmal ist es angebracht, Batch- 
Dateien zu verschachteln. Eine Batch- 
Datei ruft eine andere auf. 

Das geht in MS-DOS ohne weiteres. 
Die Datei HAUPT.BAT soll die Batch- 
Datei UNTER.BAT aufrufen. 

HAUPT.BAT: 

ECHO Hier ist HAUPT 
UNTER 

UNTER.BAT: 

ECHO Hier ist UNTER 

Aber freuen Sie sich nicht zu früh. Eine 
Rückkehr aus UNTER.BAT an die 
Aufrufstelle in HAUPT.BAT ist nicht 
möglich. Wenn Sie HAUPT.BAT wie 
folgt abändem, werden Sie das schnell 
feststellen: 

ECHO Hier ist HAUPT 
UNTER 

ECHO Wird nie angezeigt! 

Und wenn Sie von UNTER.BAT aus 
einfach HAUPT aufrufen, beginnt die 
Abarbeitung von HAUPT wieder mit 
der ersten Zeile der Batch-Datei. 

IBM und Microsoft haben das inzwi¬ 
schen erkannt und PC-DOS 3.3, das 
für die neuen IBM PS/2-Modelle ge¬ 
dacht ist, um den Befehl CALL erwei¬ 
tert, der Batch-Dateien nachlädt und 
die Rückkehr zum aufrufenden Batch- 
Programm gestattet. 

Da die wenigsten Leser von PC-Inter- 
national wahrscheinlich gerade PC¬ 
DOS 3.3 verwenden, sollten wir uns 
nach einer anderen Lösung umsehen. 
Sie ist schnell gefunden und besteht 
darin, einen zweiten Befehlsprozessor 
zu laden. 

Das Betriebssystem MS-DOS besteht 
aus mehreren einzelnen Teilen. Einer 
von ihnen bearbeitet Tastatureingaben 
des Benutzers. Er ist nicht fest in das 
Betriebssystem eingebunden, sondern 


ein ganz normales Programm mit dem 
Namen COMMAND.COM. Sie kön¬ 
nen — wenn Sie wollen — mehrere Be¬ 
fehlsprozessoren gleichzeitig starten, 
von denen immer der zuletzt geladene 
aktiv ist. 

Das ist der Schlüssel zur Lösung. Da 
jeder Befehlsprozessor jeweils eine ei¬ 
gene Batch-Datei bearbeiten kann, 
müssen Sie nur ein weiteres COM- 
MAND.COM laden und diesen Be¬ 
fehlsprozessor die Unterdatei bearbei¬ 
ten lassen. 

Doch aufgepaßt: Sie können nicht ein¬ 
fach COMMAND UNTER schreiben, 
weil MS-DOS das mißverstehen wür¬ 
de. Statt dessen müssen Sie COM¬ 
MAND IC UNTER schreiben. Die Op¬ 
tion IC besagt, daß der danach angege¬ 
bene Befehl ausgeführt werden soll. 
Ändern wir also HAUPT.BAT ent¬ 
sprechend ab: 

ECHO Hier ist das Hauptprogramm 

COMMAND /C UNTER 

ECHO Hallo, zurück in HAUPT.BAT 

Beachten Sie bitte, daß COMMAND in 
dem gezeigten Beispiel lediglich UN¬ 
TER.BAT abarbeitet und dann sofort 
wieder zum aufrufenden Programm zu¬ 
rückkehrt. 

Etwas anderes wäre es, wenn Sie 
COMMAND.COM ohne weitere Pa¬ 
rameter aufrufen. Hier kann der Benut¬ 
zer beliebig viele DOS-Befehle einge¬ 
ben. Eine minimale DOS-Shell könnte 
so aussehen: 

DIR 

ECHO Jetzt können Sie 
ECHO Befehle eingeben: 

COMMAND 
ECHO Das war's 
DIR /W 

Beendet wird dieser Aufruf von COM¬ 
MAND. COM durch Eingabe des 
DOS-Befehls EXIT. 

Was schon zu viel Verwirrung und 
Kopfzerbrechen bei überraschten An¬ 
wendern geführt hat, ist die Tatsache, 
daß jeder COMM AND-Befehlsprozes- 
sor seine eigene Environment-Tabelle 
besitzt. 

Wenn Sie also in einem nachgeladenen 
COMMAND.COM mit SET eine En¬ 
vironment-Variable definieren und 
dann diesen Befehlsprozessor mit 
EXIT verlassen, wird auch die gerade 
festgelegte Environment-Variable wie¬ 
der gelöscht. 
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Im Gegensatz dazu “erbt“ aber ein 
COMMAND.COM die Environment- 
Tabelle des übergeordneten Befehls¬ 
prozessors. Im amerikanischen Com¬ 
puter-Slang spricht man davon, daß ein 
Child-Process die Environment-Tabel¬ 
le seines Parent-Process erbt (to in- 
herit). 

So können Sie also im Child-COM- 
MAND zum Beispiel den geerbten 
PATH abändem, verlieren aber diese 
Änderung sofort wieder, wenn Sie mit 
EXIT zum Parent-Process zurück¬ 
kehren. 


FOR-Schleifen 


Beschäftigen wir uns wieder mehr mit 
den regulären Möglichkeiten der 
Batch-Dateien unter MS-DOS. 

Einige interessante Programmiermö¬ 
glichkeiten ergeben sich dadurch, daß 
Sie FOR-Schleifen definieren können. 
Diese ersetzen in manchen Fällen die 
eher umständlichen Formulierungen 
mit IF und GOTO. 

Die Syntax des FOR-Kommandos ist 
etwas gewöhnungsbedürftig, beson¬ 
ders wenn Sie bereits BASIC oder Pas¬ 
cal beherrschen. Sie lautet: 

FOR %%k IN (x) DOy 

wobei gilt: 

% % A steht für einen einbuchstabigen 
Variablennamen von % % A bis % %Z. 

x steht für ein Dateispektrum. 

y steht für einen Befehl. 

Der Variablen %%A werden in der 
FOR-Schleife der Reihe nach Dateina¬ 
men aus x zugewiesen. Ein Beispiel: 

FOR %%k IN (#.PAS) DO DIR %%k 

Hier stellt MS-DOS fest, welche Datei¬ 
namen auf das Namensspektrum 
*.PAS passen. Beim ersten Durchlauf 
wird der erste Name an % % A übertra¬ 
gen und sofort beim DIR-Befehl be¬ 
nutzt. Beim zweiten Durchlauf kommt 
der zweite Name an die Reihe usw. Die 
FOR-Schleife wird erst verlassen, 
wenn es keiren auf das Namens Spek¬ 
trum passenden Dateinamen mehr gibt. 

Es ist mit FOR nun endlich möglich, 
einen TYPE-Befehl, der mehrere Da¬ 
teien druckt, als Batch-Datei zu reali¬ 


sieren. Dazu wird lediglich statt des 
Dateispektrums ein %-Parameter an¬ 
gegeben: 

FOR %%k IN (Jfl) DO TYPE %%k 

Oder wenn Sie mehrere Dateien an den 

Drucker schicken wollen, können Sie 

schreiben: 

FOR %%B in (%1) DO COPY %%B PRN 

Noch leistungsfähiger wird es, wenn 
Sie die beiden letzten Batch-Dateien 
kombinieren. Sie können so den Benut¬ 
zer entscheiden lassen, ob die Dateien 
auf dem Drucker oder dem Bildschirm 
aufgelistet werden sollen: 

FOR %%k IN {%!) DO COPY %%B %2 
Schreiben Sie NEWTYPE *.PAS PRN, 
erscheint die Ausgabe aller Pascal-Pro¬ 
gramme auf dem Drucker. Geben Sie 
hingegen NEWTYPE * TXT CON 
ein, erhalten Sie eine Auflistung auf 
dem Bildschirm. 

Vielleicht suchen Sie ja schon lange 
nach einem COPY-Befehl, der mehre¬ 
re Dateien auf eine andere Diskette ko¬ 
piert. NEWCOPY.BAT erledigt diese 
Aufgabe bravourös: 

ECHO OFF 
SET VAR=£l 
SHIFT 
:SCHLEIFE 

ECHO %1 wird nach %VkR% kopiert 

FOR %%k IN {%!) DO COPY %%k £VAR£ >NUL 

SHIFT 

IF NOT $1! == ! GOTO SCHLEIFE 
SET VAR= 

Sie rufen es so auf: 

NEWCOPY ziel dateil datei2 datei3 ... 
“ziel“ ist ein anderes Laufwerk oder 
ein Subdirectory. Die Dateinamen 
selbst dürfen ein- oder mehrdeutig 
sein: 

NEWCOPY B: TM. COM TM. 000 TM2. CHN 
NEWCOPY \ TM *. PAS *. EXE 
NEWCOPY C: TM*. * *. TRB *. TMK 


Datei vorhanden? 


Bevor man weitreichende Dateiopera¬ 
tionen in Batch-Dateien durchführen 
will, sollte man manchmal erst nach¬ 
prüfen, ob wirklich alle benötigten Da¬ 
teien vorhanden sind. Dazu können Sie 
das Schlüsselwort EXIST in Kombina¬ 
tion mit IF verwenden: 

IF EXIST datei GOTO ISTDA 


Von 

CP/M 

zu 

MS-DOS 


Der Dateiname darf hier ein- oder 
mehrdeutig sein. Eine nützliche Batch- 
Datei, die feststellt, ob eine Datei auf 
dem angemeldeten Laufwerk vorhan¬ 
den ist, können Sie damit in wenigen 
Zeilen schreiben: 

ECHO OFF 

IF EXIST 361 GOTO ISTDA 
GOTO ENDE 
:ISTDA 

ECHO Datei(en) vorhanden 
:ENDE 

Sie können EXIST.BAT so aufrufen: 

A> EXIST*. BAS 
A>EXIST TM.COM 
A>EXIST C: \TM\*.TRB 

Wenn die Datei(en) vorhanden 
ist/sind, erscheint die entsprechende 
Meldung. Kann MS-DOS die Datei(en) 
nicht finden, gibt es keine Meldung 
aus. 

Auch EXIST läßt sich mit NOT negie¬ 
ren. Die gezeigte Datei EXIST.BAT 
können Sie deshalb auch so schreiben: 

ECHO OFF 

IF NOT EXIST 361 GOTO ENDE 
ECHO Datei(en) vorhanden 
:ENDE 

Noch kürzer wird es, wenn Sie sich die 
ganze GOTO-Springerei sparen und 
ECHO direkt in die IF-Zeile schreiben: 

ECHO OFF 

IF EXIST 361 ECHO Datei(en) vorhanden 

Die nächste Folge bildet den Abschluß 
unseres Exkurses in die Batch-Files. 
Danach beschäftigen wir uns mit weni¬ 
ger bekannten Eigenschaften von MS- 
DOS und DOS-Plus. 

(M. Kotulla) 
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;as grafikwunder 


CGX 


FÜR 

DEN PC! 


—Color Graphik Extension) ist eine Turbo Pascai-Toolbox der Superlative: Eine Sammlung 
<r " :c leistungsfähigen Prozeduren, mit denen sowohl der Heimprogammierer als auch der 
c'afisch beeindruckende und benutzerfreundliche Turbo Pascal-Programme schreiben 
«sr— ;bne auf Spezialkenntnisse oder zeitraubende Assemblerprogrammierung angewiesen 
— =*?- 

»• D3X können aus ein und dem gleichen Quelltext lauffähige Programme für 3 hochauflö- 
«*05 PC-Grafikmodi erzeugt werden: 

- Schneider PC 1512 Farbgrafik (640x200 bei 16 Farben) 

- EGA Farbgrafik (z.B. Schneider PC 1640, Atari) (640x200 bei 16 Farben) 

- EGA Hires-Grafik (640x200 bei 2 Farben) 

st es ohne weiteres möglich, auf dem Schneider PC 1512 Software für EGA-Rechner 
ü inwickeln - und umgekehrt! 

G~ DGX-Prozeduren arbeiten sehr schnell und effektiv, da sie unter Verwendung modernster 
Erzf-algorithmen zu einem großen Teil in kompakten 8086 Inline-Assemblercode realisiert wur¬ 
ste Sie sind in mehreren Bibliotheken zusammengefaßt, die als Include-Files problemlos in 
»ce-en Programmen verwendet werden können: 

-‘s KERNEL-Bibliothek stellt den CGX-Betriebssystem-Kem dar und enthält u. a. einen neu- 
«- 5 dschirmtreiber, der verschiedene Schrifttypen und -großen zur Verfügung stellt, weiter¬ 
er unterstreichen, Fettschrift, Exponenten und Indizes, sowie die Textausgabe auf Grafikkoor- 
®" .Eren, Transparent- und XOR-Modus und vieles mehr. 

1 -r GRAPHIK-Bibliothek enthält zahlreiche Grafikprozeduren, angefangen bei »Plot- und 
bis hin zu Ellipsenbögen und Rechtecken mit runden Ecken. Weiterhin finden Sie hier 
«r* ganze Palette von Füllprozeduren für Muster und Farben sowie Prozeduren zum Verzer- 
«■ :zw Biegen von Bildschirmbereichen. 

MOUSE-Bibliothek stellt die Schnittstelle zum Maustreiber dar und erlaubt neben der Ab¬ 
tor ge und Kontrolle der Mauspostition und -tasten auf komfortable Weise die Gestaltung eige- 
■*='' Mauszeiger. Zusätzlich gibt sie Hilfen zur »Event«-Verarbeitung: »Mausereignisse« können 
ert und abgefragt werden. 

HARDCOPY-Bibliothek ermöglicht den Ausdruck beliebiger Bildschirmausschnitte in frei 
*5.' oarem Format, wobei die 16 Farben durch verschiedene Muster dargestellt werden. 

SCREEN-Bibliothek enthält Prozeduren mit denen Bildschirmbereiche im Speicher oder 
Diskette abgelegt und bei Bedarf wieder geladen werden. 

WINDOW-Blbliothek stellt ein System zur Verwaltung von Text- und Grafikfenstern zur Ver- 
■Lc.-ig - die Grundlage für eine moderne Menuetechnik. 

•Serbin umfaßt CGX neben Anwendungsbeispielen und einem ausführlichen Handbuch kom- 
Tre-nerte Quellprogramme für einen Füllmuster- und Zeichensatzeditor - eine komfortable 
^•rammierhilfe mit »Pull-Down-Menues und Mausbedienung. 
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Neue Gestaltungs¬ 
möglichkeiten 
- auch hier 
überzeugt CGX 

Autor: M. Uphoff 
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CGX für MS-DOS PC 

Farbenvielfalt durch CGX - mehr als 100 Farben am PC! 


199 ,“ DM 


TEXTVERARBEITUNG, TABELLENKALKULATION 
LOHNBUCHHALTUNG-STATISTIK. 




Und dazu der Bedienungs¬ 
komfort: 

- Bedienung per Maus und 
Pulldown-Menues 

- Hardcopy auf Knopfdruck 

- Speichern von Bildern 
auf Diskette 


FRAKTAL GENERATOR 

- Schneider PC 1512 /PC 1640 

- Atari PC 

- PC’s mit EGA-Karte & 
Microsoftkompatibler Maus. 


- Umschalten zwischen ver¬ 
schiedenen Bildern 

- Nachträgliches Ändern 
der Farben 

- Vergrößerte Ausschnitte 
durch Auswahlrahmen 

- Rechentiefe bis 9999 


FRAKTAL GENERATOR 

- ein CGX-Programm von 

DMV 


nur 


Überarbeitet? Gönnen Sie sich eine Urlaubsreise in das Land der Fraktale, genießen Sie die phantastische Farb-Fähigkeit Ihres PC. 

- eine neue Dimension für die Freunde fraktaler Grafiken: Über 100 (!) Farben stellt Ihnen dieses Programm bei einer Auflösung von 640 x 200 Punk¬ 
ten zur Verfügung. Und das berühmte »Apfelmännchen« braucht dank ausgefeilter Algorithmen nur noch ca. 3 Minuten für seine Entstehung - keine 
stundenlangen Wartezeiten hindern Sie mehr daran, eine märchenhafte Welt voller Farben und Formen zu entdecken. 


FRAKTAL GENERATOR 

Autor: Matthias Uphoff 

- Bitte benutzen Sie die Bestellkarte - 

DMV Daten & Medien Verlagsgesellschaft mbH ■ Postfach 250 • FuldaerStr. 6 • 3440 Eschwege 
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BASIC2 verständlich 

Teil 12 

Hier ist nun schon die zwölfte Folge dieser Serie: Diesmal wollen wir die, in 
BASIC2 sehr mächtigen, Grafikbefehle untersuchen. Es gibt in BASIC2 
eine Vielzahl von Befehlen, die in anderen BASIC-Dialekten erst durch 
komplexe Rechnungen simuliert werden müssen. BASIC2 besitzt diese 
Kommandos schon, was natürlich für den Programmierer eine Erleichte¬ 
rung und für den Anwender Zeitgewinn darstellt. 


Das BASIC der Schneider CPC-Bau¬ 
reihe hatte nicht einmal einen Circle 
Befehl. Es mußte, wenn man einen 
Kreis darstellen wollte, dieser mit Hil¬ 
fe des Plot-Kommandos und einer zeit¬ 
raubenden Rechenroutine berechnet 
werden. In Teil 11 hatten wir eine Ab¬ 
bildung abgedruckt, die diesen Sach¬ 


verhalt darstellt. Um mit dieser Metho¬ 
de einen Kreis darzustellen, verstri¬ 
chen oft sogar Minuten. 

BASIC2 hat selbstverständlich einen 
äußerst schnellen Circle-Befehl, der ei¬ 
nen Kreis in beliebiger Größe in nicht 
einmal einer Sekunde abbildet. Dazu 
wollen wir aber etwas später kommen. 


Kreise gleich Kreise? 


Zunächst aber zur Erinnerung. In einer 
der späteren Folgen von BASIC2 ver¬ 
ständlich, hatten wir die Window-Pro¬ 
grammierung ausführlich erklärt. 
Ebenso haben wir schon das, meiner 
Meinung nach, sehr wichtige Thema 
der User-Koordinaten bereits behan¬ 
delt. Verwenden Sie in Ihrer Fenster¬ 
routine bitte nur einen Parameter bei 
der “User Space“- Angabe, da es sonst 
höchstwahrscheinlich der Fall ist, daß 
Ihre Kreise Ellipsen werden und dies 
ist eben nun mal nicht der Sinn und 
Zweck eines Circle-Befehles. Verges¬ 
sen Sie bitte auch nicht Ihr aktuelles 
Window, in dem Sie Ihre Befehle aus¬ 
probieren, auf “Screen Graphics“ um¬ 
zustellen. BASIC2, vielmehr GEM 
kann auch nur ein Grafikfenster ver¬ 
walten. Spreche ich für Sie in Hiero¬ 
glyphen, so lesen Sie bitte die Folgen 
4, 5 und 6 nach. Beim Verlag gibt es 
die Hefte 5, 6 und 7 noch zum Nachbe¬ 
stellen. 


Der CGA-Grafikchip 


Der Schneider PC besitzt auf seinem 
Motherboard einen sogenannten CGA- 
Grafik-Chip. CGA ist die simple Ab¬ 
kürzung für Colour Graphics Adapter. 
Dieser kleine Baustein ermöglicht es 
erst, Grafik auf dem Schneider PC zu 
erzeugen. Als kleine Zugabe gibt es 
aber noch einen weiteren, etwas lei¬ 
stungsstärkeren Modus. Es ist der, na 
ich will mal sagen, exotische GEM- 
Modus. Dieser Name ist entstanden, da 
fast nur GEM diesen Sondermodus be¬ 
nützt. Mittlerweile gibt es auch Pro¬ 
gramme, die ebenfalls die Fähigkeit 
des Schneider PC 1512 voll ausnützen. 
Eines dieser Programme soll nicht un¬ 
erwähnt bleiben, es handelt sich um das 
Programm CGX-Colour Graphics Ex¬ 
tension. 

Unter GEM gibt es die Möglichkeit, 
bei 16 Farben aus 16 eine Auflösung 
von 640 mal 200 Punkten zu erreichen. 
Diese Werte können Sie auch mit der 
Funktion 

XDEVICE 

und 

YDEVICE 

abfragen. Diese Auflösung ist schon 
ganz anständig. Um dies alles adressie¬ 
ren zu können, benötigt GEM 64 Kilo¬ 
byte Grafikspeicher. GEM teilt dies in 
vier Speicherblöcken zu je 16 Kilobyte 


Escapesequenzen Huer GEM-BASIC2 

ESC (Escape) entspricht CHR$(27) 

ESC b far+32 

Vordergrundfarbe setzen (COLOUR) 

ESC A 

Cursor eine Zeile nach oben setzen 

ESC B 

Cursor eine Zeile nach unten setzen 

ESC C 

Cursor eine Spalte vor 

ESC D 

Cursor eine Spalte zurueck 

ESC E 

Loeschen des Windows und Cursor in die 
linke obere Ecke positionieren 

ESC H 

Cursor in linke obere Ecke 

ESC I 

Cursor eine Zeile nach oben scrollen 

ESC Y x+31 y+31 

Cursor an Koordinate x und y 

ESC d 

Loeschen vom Beginn des virtuellen Bildschirms 
bis zum Cursor 

ESC e 

Cursor an 

ESC f 

Cursor aus 

ESC j 

Speichern der aktuellen Cursorposition 

ESC k 

Cursor zur gespeicherten Position 

ESC o 

Loeschen vom Zeilenanfang bis zur Cursorposition 

ESC F schr+32 

Schriftart 'sehr' setzen 

ESC W schrmod+32 

Schreibmodus 'schrmod' setzen 

ESC m 

Modus fuer Hellschrift ein 

ESC n 

Modus fuer Hellschrift aus 

ESC p 

Reversemodus ein 

ESC q 

Reversemodus aus 

ESC r 

Fettmodus ein 

ESC u 

Fettmodus aus 

ESC s 

Unterstreichen ein 

ESC t 

Unterstreichen aus 

ESC v 

Einschalten des 'Wordwrapping' 

(Wordwrapping = Automatischer Wagenruecklauf) 

ESC w 

Ausschalten des 'Wordwrapping' 

ESC x 

Kursivmodus ein 

ESC y 

Kursivmodus aus 

ESC J 

Loeschen des virtuellen Bildschirms 

ESC K 

Loeschen einer Zeile bis zum Ende 

ESC L 

Leerzeile einfuegen 

ESC M 

Ganze Zeile loeschen 

ESC N 

Loeschen eines Zeichens 

ESC P pktgr+32 

Setzen der Punktgroesse 'pktgr' 

ESC X (angle/5)+32 

Winkel der Textausgabe setzen 


Abb. 1 :ESCAPE-Sequenzen 
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Ke wichtigsten Steuercodes von GEM-BASIC2 
BEL entspricht CHR$(7) 


7 

BEL 

Piepston (Bell) 

3 

BS 

Cursor um eine Spalte nach links bewegen (Back space) 

10 

LF 

Cursor um eine Zeile nach unten bewegen, wenn not¬ 
wendig wird gescrollt (Linefeed) 

13 

CR 

Wagenruecklauf (Carriage return) 

27 

ESC 

Escapefolge ausfuehren 

127 

DEL 

Zeichen loeschen (Delete) 


- :-r- 2: Steuercodes von GEM-BAS/C2 


was verkürzen, in dem man folgenden 
kleinen Trick verwendet: 

PRINT CHR$(27)+' l b,“+‘ l Test“ 

Sie sehen, unser Komma steht direkt 
hinter dem kleinen “b“. Dies können 
Sie auch auf alle anderen Beispiele 
übertragen. 

Wir wollen hier nicht alle Escape-Co- 
des vorführen. Probieren Sie also an¬ 
hand der Abbildung alle einmal aus. 


Die Steuercodes 


--T. Jede Speicherbank ist für eine 
Grundfarbe verantwortlich. Jetzt ist Ih¬ 
ren vielleicht auch klar geworden, wie- 
'' BASIC2 bei einem Verschieben des 
Windows viermal den Bildschirm säu- 
:ert. Es wird ein 16 Kilobyte Block 
■ach dem anderen gelöscht und wieder 
gefüllt. 

Bevor wir zu den Grafikkommandos 
-□ergehen, wollen wir die Escape-Se¬ 
quenzen besprechen, die in manchen 
f ällen sehr hilfreich sein können. Eine 
Auflistung mit all den Escape- Codes 
änden Sie in Abbildung Nr. 1 


Escapesequenzen 


Escape hat im ASCII-Zeichensatz den 
Code 27. Wollen Sie also den Kursiv¬ 
modus einschalten, so brauchen Sie nur 
folgende Befehlszeile einzugeben. 
Dies funktioniert auch im Dialog-Fen- 
>ter. 

:HR$(27)+“x“+“Test" 

Um eine bestimmte Stelle im Text kur¬ 
siv hervorzuheben, kann diese Befehls¬ 


zeile dienen. 

PRINT “Es gibt noch“+CHR$(27) f"x l, +"viel" 
+CHR$(27)+ “y“+"tun“ 

Es ist an diesem Beispiel auch klar ge¬ 
worden, was für einen Vorteil die Ver¬ 
wendung der Escape-Sequenzen hat. 
Man kann bestimmte Texte oder Wör¬ 
ter ohne viel zu schreiben, beliebig 
vorholen. 

Bitte beachten Sie, daß Sie Klein- und 
Großbuchstaben nicht verwechseln. 
Anstatt des kleinen “e“ haben Sie auch 
die Chance, den ASCII- Code direkt 
einzugeben. In diesem Fall beträgt der 
ASCII-Code für das kleine “e“ 101. 
Unser Beispiel würde also wie folgt 
aussehen: 

PRINT CHR$(27)+CHR$( 10l)+ u Test" 

Noch ein weiteres Beispiel, bei dem die 
Farbe verändert werden soll. Hier 
müssen Sie zum letzten Zeichen 32 ad¬ 
dieren. Um zum Beispiel einen “blau¬ 
en“ Text auszugeben, wäre folgende 
Befehlszeile zu verwenden: 

PRINT CHR$(27)+“b"+ CHR$(44)+"Test“ 

Das Komma hat den ASCII-Code 44. 
Also kann man seine Eingabe noch et- 


Die Steuercodes sind in etwa mit den 
Escape-Sequenzen verwandt. Es gibt 
in dem oft zitierten ASCII-Code Ver¬ 
einbarungen von diversen Steuercodes. 
Steuercodes liegen im Regelfall unter 
dem Wert 32. Die wichtigsten davon 
habe ich ebenfalls wieder in einer in¬ 
formativen Abbildung (Abb.2) zusam¬ 
mengefaßt. Dabei handelt es sich um 
BEL, BS, LF, CR, ESC und DEL. 
“ESC“ ist Ihnen ja schon bekannt. Bei 
CHR$(7) 

gibt der Rechner einen mehr oder we¬ 
niger erschreckenden Piepston aus. 

BS, oder genauer, der Back-Space be¬ 
wegt den Cursor um einen Spalte nach 
links. Einen Line Feed, also einen Zei¬ 
lenvorschub löst 

CHR$(10) 

aus. 

Den von der Schreibmaschine her be¬ 
kannten Wagenrücklauf, oder auf Eng¬ 
lisch den Carriage Return, erhalten Sie 
mit: 

CHR$(13) 

Untersuchen Sie einmal einen Text, 
der von einer beliebigen Textverarbei¬ 
tung abgespeichert worden ist (aber 
bitte nicht gerade Wordstar), so stellen 
Sie fest, daß sich hinter jeder neuen 
Zeile die Codes Hex 0D und 0A befin¬ 
den. Dies ist nichts weiter, als eine CR 
und ein LF. BASIC2 fügt im Regelfall 
diese Zeichen automatisch an. 

Wenn Sie einmal ein Zeichen löschen 
wollen, gibt es den 

CHR$(127) 

der ein Delete erzeugt. Nichts anderes 
unternimmt die gleichnamige Taste auf 
Ihrem Keyboard. 


Standard Einstellungen 

Beim Ausführen des Befehles 

CLEAR RESET 

oder bei einem Hochbooten des 
BASIC2, nimmt der Rechner, besser 
der Interpreter, Standardwerte an. 


GEM-BASIC2 Standard - Einstellungen 


Colour: 

1 

Schwarz (Text und Graphik) 

Marker: 

1 

Punkt 

Marker Size: 

1 

Kleinste Form 

Cursor: 

1 

Fadenkreuz 

Line Width: 

1 

Ein Pixel Linienstaerke 

Line Style: 

1 

Oruchgezogene Linie 

Fi 11 Style: 

1 

Volles Fuellmuster 

Zone 

18 

Druckzone 18 

Font: 

1 

Systemschrift fuer Monitor, fuer andere Geriete gilt 
jeweils die erste verfuegbare Schriftart 

Effects 

0,0 

keine Veraenderungen 

Points 

10 

Zehn Punkte, wenn diese Verfuegbar sind 

Angle 

0 

Keine Aenderung, horizontale Schreibrichtung 

Wrap 

1 

Wordwrapping ein 

Colour 

1 

Schwarze Schriftart 

Margin 

0 


Mode 

1 

Standard Modus 


Ibb. 3:GEM-BASIC! Standard-Einstellungen 
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Graphikbefehle 


BOX <# Kanal, >*;y^reite,Hoehe 
<ROUNDED> 

< FILL < ONLY > < W1TH Muster > > 

< WIDTH Linienstaerke > 

< STYLE Linienart > 

<COLOUR Farbe > 

< MODE Schreibmodus > 


CIRCLE < #Kanal, > ,x;y,Radius 

< PART Anfangswinkel, Schlusswinkel > 

< START Anfangsform > <ENDEndfonn> 
<FILL <ONLY> <WITH> Muster > > 

< WIDTH Linienstaerke > 

< STYLE Linieoart > 
cCOLOUR Farbe > 

< MODE Scbrcibmodus > 


ELLIPSE <#Kanal,>x;y,Radius,Sv 

< PART Anfangswinkel, Schluss winkel > 

< START Anfangsform > < END Endform > 
<FJLL <ONLY> <WITH> Muster > > 

< WIDTH Linienstaerke > 

< STYLE Linienarl > 

«cCOLOUR Farbe > 

< MODE Schreibmodus > 


ELLIPTICAL PIE < #Kanal,>x;y,Radius,Sv,Sw,Ew 

< FILL < ONLY > < WITH Muster > > 

< WIDTH Linienstaerke > 

< STYLE Linienart > 

<COLOUR Farbe > 

< MODE Schreibmodus > 


FLOOD < #Kanal, > x;y,Grenzfarbe 

< FILL WITH Muster > 
<COLOUR Farbe > 

< MODE Schreibmodus > 


LINE < #Kanal, > xl;y2,x2;y2,xN;yN 

< START Anfangsform > < END Endform > 

< WIDTH Linienstaerke > 

< STYLE Linienart > 

<COLOUR Farbe > 

< MODE Schreibmodus > 


MOVE < #Kanal, > ,x;y 


Abb.4:Grafikbefehle unter BASIC2 

eher haben Sie sich schon einmal ge¬ 
fragt, welche genau dies schon sind. 
Abbildung Nr. 3 veranschaulicht diese 
Werte, die Sie nach einem Clear Reset 
antreffen werden. 

Wenn wir schon so fleißig beim Deuten 
von Abbildungen sind, so wollen wir 
doch gleich den Sinn von Abbildung 
Nr. 4 erklären. Diese Liste soll Ihnen 
alle für diesen Kurs relevanten 
BASIC2 Grafikbefehle in der vollstän¬ 
digen Syntaxform aufzeigen. Schlüs¬ 
selwörter, das heißt Befehlsattribute, 
die nicht unbedingt notwendig sind, 
aber wahlweise verwendet werden 
können, sind in spitzen Klammern ge¬ 
druckt worden. Variablen beziehungs¬ 
weise Parameter wurden in Dünn- und 
Befehlswörter in Dickdruck abge¬ 
bildet. 


Nun aber endlich zu einem der großen 
Vorteile von GEM und BASIC2 - die 
Grafikkommandos. 

Die Anatomie der Windows habe ich 
Ihnen ebenfalls schon in den vorher ge¬ 
nannten BASIC2-Folgen erklärt. 
Beginnen wir mit dem wohl einfach¬ 
sten — dem Kreis. 

Das Kommando selber trägt den 
Namen 

CIRCLE 

Die komplette Syntax entnehmen Sie 
bitte der Abbildung Nr. 4. 
circle zieht einen Kreis in einem ge¬ 
wählten Stream. Der Mittelpunkt und 
der Radius muß angegeben werden. 
Der Rest, auch der Kanal, kann wegge¬ 
lassen werden. Beim Stream wird der 
Standardwert verwendet. 


Alle Attribute 
am Beispiel CIRCLE 


BASIC2 teilt die x- und y-Koordinate 
jeweils durch einen Strichpunkt 
und alle weiteren Parameter durch ein 
Komma Dadurch wird eine besse¬ 
re Überschaubarkeit gewährleistet. 

Um einen Kreis um den exakten Mittel¬ 
punkt zu ziehen, tippen Sie bitte fol¬ 
gende Zeile im Dialogmodus ein: 
CIRCLE (XWIND0W*XPIXEL)/2; 
(YWIND0W*YPIXEL)/2, 2500 

Wir haben hier mit Systemvariablen 
gerechnet. Auch zu diesem Thema 
habe ich mich schon in einer früheren 
Folge geäußert. 

Durch dieses kleine Beispiel habe ich 
auch die Geschwindigkeit des Befehles 
veranschaulicht. Um ein Vielfaches 
schneller als die Methode aus Folge 11. 
Aber, wir wollen das Kommando et¬ 
was erweitern, dann füllen wir den 
Kreis vollständig mit einer Farbe aus. 
Demnach lautet das Kommando jetzt: 
CIRCLE (XWIND0W*XPIXEL)/2; 
(YWIND0W*YPIXEL)/2, 2500 FILL WITH 8 

Der Kreis ist nun eine schwarze Schei¬ 
be. Auch hier ist wieder ein, für einen 
BASIC-Dialekt, atemberaubendes Tem¬ 
po zu beobachten. 

Der Preffix “Fill With“ füllt den Kreis 
mit der Kreislinie in einem entspre¬ 
chenden Muster aus. Acht ist in dem 
Fall ein einfaches Muster. Sehen Sie 
sich das Pulldown-Menü “Muster“ ge¬ 
nauer an. In diesem Fenster werden Sie 
39 verschiedene Muster finden. Die 
Farbe ist schwarz, da wir keinen Wert 
zur Bestimmung der Farbe übergeben 
haben und schwarz der Standardwert 
ist. Wir wollen unserem Kreis einen 
schwarzen Rand und eine blaue Fül¬ 
lung verpassen: 


CIRCLE (XWIND0W*XPIXEL)/2; (YWINDOW* 
YPIXEL) /2, 2500 FILL ONLY WITH 8 C0L0UR 4 

Bei “Fill with“ haben wir noch den At¬ 
tribut “Only“ hinzugefugt. Durch die¬ 
sen Zusatz wird der Rand nicht mit aus¬ 
gefüllt. BASIC2 ist es übrigens gleich 
ob sie “Color“ oder “Colour“ schrei¬ 
ben. Die Engländer und die Amerika¬ 
ner können sich also doch besser lei¬ 
den, als immer angenommen. 

Sie wollen die Breite der Kreisumran¬ 
dung etwas größer haben: 

CIRCLE (XWIND0W*XPIXEL) /2; 
(YWIND0W*YPIXEL)/2, 2500 WIDTH 7 

Die Werte für diesen Kommandoteil 
finden Sie in dem Menü “Linien“. 

Die Linienart, der Style, läßt sich eben¬ 
falls beeinflussen: 

CIRCLE (XWINDOW*XPIXEL)/2; 
(YWIND0W*YPIXEL)/2, 2500 STYLE 3 

Um Ihren Kreis bei einem Anfangs¬ 
punkt zu starten und bei einem Schluß¬ 
punkt zu beenden wurde des weiteren 
der Befehl 

PART Start, Ende 

geschaffen. 

Die Parameter werden normalerweise 
im Bogenmaß ausgedrückt. Beachten 
Sie aber bitte, welche Einstellung (Op¬ 
tion Degress, Option Radians) Sie ge¬ 
rade aktiviert haben. Sie müssen also 
entweder 

RAD(anfang/ende) 

oder 

DEG(anfang/ende) 

verwenden. 

Aber nun wieder unser vertrautes Bei¬ 
spiel: 

CIRCLE (XWIND0W*XPIXEL)/2; (YWINDOW* 
YPIXEL)/2, 2500 PART RAD(90), RAD(225) 

Null Grad befinden sich auf der rechten 
Seite vom Mittelpunkt gesehen in hori¬ 
zontaler Richtung. Oder etwas einfa¬ 
cher und mathematischer: auf der posi¬ 
tiven x-Achse. Folglich befinden sich 
180 Grad auf der negativen x-Achse. 
Der Drehsinn ist gegen den Uhrzeiger¬ 
sinn. Haben Sie durch “Option“ die 
Standard-Einstellung verändert, so gel¬ 
ten für-die Winkel andere Werte: 

0 Grad = 0 mal PI 
90 Grad = PI halbe 
180 Grad = PI 
270 Grad = 3 mal PI halbe 
Dies folgt aber alles streng mathemati¬ 
schen Gesetzen. Fragen Sie doch ein¬ 
fach einmal Ihren Mathematik-Lehrer, 
falls vorhanden. Zu diesem Thema 
habe ich mich aber auch schon einmal 
in Folge 3 geäußert. 

Auch dürfen Sie bei “Option Degrees“ 
nicht die Funktion “Rad“ verwenden, 
sondern selbstverständlich “Deg“. 

Im dritten Teil des Linien- Pulldown- 
menüs sehen Sie Pfeile mit den Werten 
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Null bis Zwei. Diese Formen können 

Sie mit Hilfe der Befehle 

START 

and 

30 

wählen. 

Wieder ein selbsterklärendes Beispiel: 

SIRCLE (XWIND0W*XPIXEL)/2; (YWINDOW* 
rPIXEL)/2, 2500 
PART RAD(90) ,RAD(225) 

START 1 
302 

Unter Umständen kann dieser Befehl 
erst seine wahre Wirkung bei entspre¬ 
chender Linienstärke zeigen. 

Das letzte Attribut bei unserem Kreis¬ 
kommando stellt 
MODE 

dar. Diesen Befehl haben wir aber auch 
schon genau in einer früheren Folge 
von “BASIC2 veständlich“ erklärt. 
Deshalb nur kurz die Deutung der ein¬ 
zelnen Parameter: 

1 Ersatz-Modus 

2 Transparent-Modus 

3 XOR-Modus 

4 Invertierter Transparent-Modus 
Alle anderen Grafikbefehle haben in 
etwa die gleichen Preffixe. Es gelten 
jeweils die gleichen Syntaxregeln, wie 


bei den aufgezählten. Eine genaue Be¬ 
fehlsliste haben wir — wie bereits er¬ 
wähnt — in Abbildung Nr. 4. 

Der BASIC2-Befehl 

BOX 

zeichnet Ihnen in Ihr Window ein 
Viereck. 

Eine noch nicht erklärte Extension ist 

ROUNDED 

Mit Rounded kann man runde Ecken 
bei dem Viereck erzeugen. Wenn die¬ 
ses Kommando fehlt, sind die Eck¬ 
punkte des Vierecks rechtwinklig. Ne¬ 
ben dem Startpunkt müssen als Para¬ 
meter noch die Breite und die Höhe des 
Kästchens übergeben werden. Ein klei¬ 
nes Anwendungsbeispiel: 

BOX 100;100,1000,1000 

Einen Kreissektor können Sie mit 

PIE 

darstellen. Dies ist derselbe Befehl wie 
Circle mit Part. 

Vielecke kann man unter BASIC2 auch 
realisieren: 

SHAPE 

heißt hierzu das Schlüsselwort. Gegen¬ 
über dem Circle-Befehl gibt es keine 
Besonderheiten. 


Graphikbefehle 


PIE < #Kanal, > ,Radius^artwinkel,Bndwmkel 

< KILL < ONLY> < WITH Muster > > 

< WIDTH Linienstaerke> 

< STYLE Linienart > 

< COLOUR Farbe > 

< MODE Schreibmodus > 


PLOT < #Kanal > xl;yl,x2;y2,xN;yN 

< MARKER Markierungsart > 
<SIZEGroesse> 

< COLOUR Farbe > 

< MODE Schreibmodus> 


SHAPE < # Kanal > jtl;y2^2^1xN;yN 
<FILL <ONLY> <W1TH Muster> > 

< WIDTH Linienstaerke > 

< STYLE Linienart > 

< COLOUR Farbe > 

< MODE Schreibmodus > 


Abb.4:Grafikbefehle unter BASIC2 

Linien lassen sich auf sehr komfortable 
Weise umsetzen. Der “LINE“-Befehl 
hat die Eigenschaft, daß der Program¬ 
mierer mehrere Start- und Endkoordi¬ 
naten hintereinander schreiben kann. 
Bis auf die Ausnahme, daß “Start“ und 
“End“ bei “Pie“ fehlen, ist die Funk¬ 
tion von “Pie“ und “Line“ gleich. Die 
verschiedenen Koordinaten müssen 


NEU In DEUTSCHLAND vom Hause ARNOR 


PROSPELL (deutsche Version) 
Rechtschreibeprüfungsprogramm für LOCOSCRIPT. 


• Funktioniert direkt mit Locoscript-Dateien. 

• Deutsches Wörterbuch - beinhaltet 44000 Wörter. 

• Kontrolle von etwa 1500 Worten pro Minute. 

PREIS: D.M. 70,- * 

sofort lieferbar; 

erhältlich von Amor (Deutschland) Ltd. 

PRO WORT für den Schneider Joyce 8256/8512, CPC6128. 
Das äußerst leistungsstarke Textverarbeitungsprogramm 
mit unglaublicher Geschwindigkeit und Flexibilität, 
zu dem Sonderpreis von D.M. 219,- * 

* Unverbindliche Preisempfehlung. 

Die Produkte sind auch im guten Fachhandel erhältlich. 

Software für Kenner 


Sie können das Wörterbuch selbst bearbeiten; 
einige tausend Wörter zusätzlich speichern; 

Option zum Aufbau mehrerer Wörterbücher; 

Wörter finden; Möglichkeit zum Lösen von Anagrammen. 


Versand erfolgt: V-Scheck anbei per Nachnahme 

Arnor (Deutschland) Ltd., 
Hans-Henny-Jahnn-Weg 21, 
2000 Hamburg 76. 

Tel. 040 22 49 42 
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Abb. 6:Farbiges Ausfallen von Kreisen 


durch Kommata getrennt werden, die 
Koordinatenpunkte wieder durch 
Strichpunkte. 


Sonderfall “Flood“ 


Etwas problematischer ist es, den Be¬ 
fehl 

FLOOD 

zu erklären. In den Programmierunter- 
lagen zu BASIC2 heißt es da nämlich 
kühl und einfach: 

“Der Befehl FLOOD funktioniert nicht 
unter allen Versionen von GEM.“ 

Das ist schön. Anscheinend hat mich 
Schneider/ Amstrad/Digital Research 
mit einer GEM-Version beglückt, bei 
der dieser Befehl eben nicht funktio¬ 
niert. Es ist schon erstaunlich, daß DR 
so überhaupt keinen Wert auf Kompati¬ 
bilität legt. Bei dem Einen geht der Be¬ 
fehl im Programm, bei dem Anderen 
wieder nicht. Prima! 

Trotz alldem finden Sie die komplette 
Syntax in der Befehlsübersicht. 


Ellipse, und Elliptical Pie erklären sich 
anhand der Syntaxliste. Der erste Be¬ 
fehl zeichnet eine Ellipse und der letz¬ 
tere einen Ausschnitt aus einer Ellipse. 
Bei Plot gibt es noch die Befehle “Size“ 
und “Marker“ zu erwähnen. 

Mit 

SIZE 

können Sie die Größe des verwendeten 
Markierungstyps beeinflussen. Der 
Wert kann zwischen Null und 15 
liegen. 

MARKER 

gibt den eben erwähnten Markierungs¬ 
typ an. Es existieren sechs Arten: Der 
Standardwert ist eins, auch wenn kein 
Markierungstyp angegeben wird. 
Nachstehend eine Liste der verschiede¬ 
nen Zeichen: 

1 Punkt 

2 Pluszeichen 

3 Sternchen 

4 Viereck 

5 “X“ 

6 Raute 


“Move“, eines der einfachsten, legt ei¬ 
nen Grafikpunkt fest, ohne diesen auf 
den Bildschirm zu zeichnen. Mit die¬ 
sem Kommando kann man Bezugs¬ 
punkte vereinbaren. 

In dieser Folge von “BASIC2 ver¬ 
ständlich“ haben wir eine sehr farben¬ 
frohe Demonstration von zwei Grafik¬ 
befehlen mit abgedruckt. Das Pro¬ 
gramm muß nur noch abgetippt oder 
von der PC DATABOX geladen wer¬ 
den. Verschieben Sie doch einmal das 
Ausgabe-Window. Sie werden ziem¬ 
lich schnell feststellen, was an der Be¬ 
hauptung “GEM lohnt sich nur auf ei¬ 
nem AT“, wahr ist. 

Dies war schon wieder der zwölfte Teil 
von “BASIC2 verständlich“. In der 
nächsten Folge wollen wir - aufgrund 
von Leserwünschen - uns wieder etwas 
den Anfängern widmen, wir werden 
eine sehr komfortable, voll mausge¬ 
steuerte Adressverwaltung über vor¬ 
aussichtlich vier Folgen program¬ 
mieren. 

(Christian Eißner) 


REM +-- 

REM * PC Schneider International + 

REM + 8ASIC2 Kur* + 

REM * by Christian Eißner B7" + 

REM +• Kurze Grafik Demonstration * 

REM *-- 

GOSUB fenstwr_aufbau 
x1nge»INT <XWINDOW <«aus)* XPIXEL <«aus> > 
y1nge=INT < YWINDOW <Waus > *YPIXELItaui)) 
mi nx-=M IN <x Inge, y Inga) 
maxy=MAX(xlnge,ylnge) 

FOR radius=rainx TO I STEP -minx/25 

farbe=farbe+l 

IF färbe > 15 THEN farbe=l 

CIRCLE Naus,xlnge/2;ylngw/2,radius FILL ONLY W1TH B CDLOUR färb# 
NEXT radius 
div=maxy-minx 

FOR zeit“! TO 4500tNEXT zeit 
FÜR hhe*minx TO 1 STEP -minx/25 
farbe=farbe+1 
IF färbe > 3 THEN farbe=i 


BOX #aus,1)l,hhe+div,hhe FILL ONLY WITH B COLOUR färbe 
NEXT hhe 

FOR z#it«l TO 9000tNEXT zeit 
END 


LABEL fenwtar_aufbau 
xw=XUSABLE/1.3 
yw=YUSABLE/1.3 
aue=l 

CLOSE HI NDOW 3 
CLOSE WINDOW 4 
FDR i-1 TO 4 
CLOSE #i 
NEXT i 
STREAM »aus 
OPEN Naue WINDOW 1 

BCREEN »aus GRAPHICS xw FIXED.yw FIXED INFORMATION OFF 
UBER Naus SPACE lOOO 

WINDOW Naue PLACE SXUSABLE-XWINDDWiWaus))/2,<YUSABLE-YWINDOW(Naue)>/2 
WINDOW «aus SIZE xw,yw 
WINDOW Waus OPEN 
RETURN 
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Die PC 1512/1640 DATABOX 1/88 

(1) EASY-Iearning 

Ein komfortables, menügesteuertes Vokabeldateiprogramm für die Fremdsprachen 
Englisch, Französisch, Italienisch usw., mit dem man nicht nur Vokabeln eingeben, 
üben sowie Lektionen einladen und abspeichern, sondern auch Begriffe suchen las¬ 
sen kann, erhalten Sie mit diesem direkt von MS-DOS ausführbaren Programm. Sie 
haben die Möglichkeit, sich die Vokabeln der einzelnen Lektionen schwarz auf weiß 
auf Papier ausdrucken zu lassen und zwischen der Abfrage Fremdsprache-Deutsch 
oder Deutsch-Fremdsprache zu wählen. Das Programm merkt sich die bereits abge¬ 
fragten und richtig beantworteten Vokabeln, so daß nur die Wörter nocheinmal dran¬ 
kommen, bei denen Sie noch Schwierigkeiten haben. 

(2) KNIFFEL: 

Wer kennt nicht das bekannte Würfelspiel “Yatzee"? Das Databox-Programm KNIF¬ 
FEL ist eine wirklich gelungene Adaption zum Original. So einfach die Spielregeln 
sind, KNIFFEL wird Sie und Ihre Mitspieler über viele Stunden unterhalten. Wer 
würfelt ein Full House, eine Strasse, einen Pasch? Die höchste Augenzahl nach 
dreizehn Runden gewinnt. 

(3) HANGMAN: 

Sicher haben Sie selbst irgendwann schon einmal das Ratespiel Hangman gespielt. 
Dabei gilt es ein Wort, dessen Länge in Buchstaben durch Striche dargestellt ist, 
mittels Eingabe von Buchstaben zu erraten. Eine Buchstabenhilfe setzt die richtig 

G eratenen Buchstaben an die richtige Stelle innerhalb des Begriffes, kommt der 
uchstabe nicht in dem Wort vor, hängen Sie bald mit dem Hals in der Schlinge. Auf 
los geht’s los... 

(4) DC: 

Wer sich intensiver mit den Vorgängen innerhalb seines Computers beschäftigen 
will, erhält mit dieser CPU- Simulation einen Software-Mikroprozessor, der anschau¬ 
lich den Datenfluß der BITS und BYTES zwischen den Bausteinen in Ihrem Schnei¬ 
der PC darstellt. Das Prinzip sowie die Funktionsweise und den Ablauf von Assem¬ 
blerbefehlen erleben Sie live am Bildschirm mit. 

Lernen Sie Ihren Computer auf der tiefsten Ebene seines Wesens kennen. Vielleicht 
gelangen Sie auf diesem Weg zum Programmieren Ihres PC in Assembler? 

S i) TOOLBASIC 1.1: 

ieses Programm bietet Ihnen vielfältige Möglichkeiten unter dem Locomotive- 
BASIC2 für Ihren Schneider PC. TOOLBASIC 1.1 umfaßt u.a. die menügesteuerte 
Anwahl des Laufwerks und erleichtert die Auswahl des Pfades, der Directory und 
der Files mit Hilfe der Maus. Eine sehr nützliche Funktion erlaubt den zeilenweisen 
Ausdruck, praktisch einen gezielten Auszug aus einem Listing auf dem Drucker 
auszugeben. Wollen Sie z.B. eine Cross-Referenzliste erstellen, so hat TOOLBASIC 
1.1 auch hier eine entsprechende Funktion anzubieten. Oder wollen Sie sich nur die 
REM - Texte Ihres BASIC2-Programms ausgeben lassen? Mit TOOLBASIC 1.1 kein 
Problem. 

(6) GRAF.BAS: 

Das Programm GRAF.BAS nimmt Bezug auf die Serie BASIC2 verständlich, Teil 12, 
welcher sich mit den Grafikfähigkeiten der Programmiersprache BASIC2 befaßt. 


Einzelbezug: 

Einzelbezugspreis für DATABOX: 

Diskette 3“ / PC 5,25" 24,- DM zzgl. 3,- DM 
Porto/Verp. 

(im Ausland zzgl. 5,- DM Porto/Verpackung) 

Das Databox-Abo kostet: 

Als Diskette für 1/2 Jahr (6 Lieferungen): 

Im Inland und West-Berlin. 150,- DM 

Im europäischen Ausland. 160,- DM 

Im außereuropäischen Ausland. 180,- DM 

Als Diskette für 1 Jahr (12 Lieferungen): 

Im Inland und West-Berlin. 300,- DM 


Bestellkarte ausfüllen und absenden an: 

DMV Daten- und Medien-Verlagsgesellschaft mbH 
Postfach 250 • Fuldaer Str. 6 ' 

3440 Eschwege • Tel. (05651) 8702 



Im europäischen Ausland. 320,- DM 

Im außereuropäischen Ausland 360,- DM 

In den vorgenannten Preisen sind die Versand- 
und Verpackungskosten enthalten. 

Bitte benutzen Sie für Ihre Bestellung die Abo- 
Karte. 

Zahlungsweise: 

Am einfachsten per Vorkasse (Verrechnungs¬ 
scheck) oder als Nachnahme zuzüglich der 
Nachnahmegenbühr. 

(In das Ausland ist Nachnahme nicht möglich) 


JOYCE-DATABOX 1/88 

Diese Ausgabe der DATABOX für die PCWs 
8256/8512 platzt aus allen Nähten: 171 KB Da¬ 
ten und Programme!!! 

1. LocoScript-Konvertierungsprogramm 

Die erste DATABOX in 1988 wartet gleich mit ei¬ 
nem Hit auf: LOCOCON - DER universelle Kon¬ 
verter für LocoScript-Texte! Textdateien können 
komfortabel konvertiert und anschließend auf 
beliebige Drucker (intern, extern, parallel oder 
seriell, Typenrad- oder Matrixdrucker) ausgege¬ 
ben werden. Ein Anpassungsmenü erlaubt die 
Eingabe von Steuercodes für alle Drucker, die 
mit ESC-Codes arbeiten! 

Ganz nebenbei wird im Begleitartikel LocoSc- 
ript entschlüsselt... 

2. Interrupts 

Machen Sie BASIC-Programme bis zu 20% 
schneller, indem Sie mit diesem Programm ar¬ 
beiten! Es funktioniert eigentlich ganz einfach: 
JOYCE prüft während eines jeden Programma¬ 
blaufes, ob die Tastatur betätigt wurde, was na¬ 
türlich bei Rechenoperationen nutzlos ist. Inter¬ 
ruptus spart diese Abfragezeit ein, indem die 
Abfrage einfach abgeschaltet wird... 

3. Printpic 

Noch ein Hit! Schneller als die eingebaute 
Hardcopy und komfortabler als Copypic aus 
Heft 8/86: Printpic, ein Programm zum Aus¬ 
druck von DR LOGO-Bildern. Benutzen Sie 
TEST.PIC zum Experimentieren; linker und 
rechter Rand sowie die Anzahl der Kopfzeilen 
können voreingestellt werden, invertierter Aus¬ 
druck ist möglich. Für Assemblerfans steht der 
Quellcode in verschiedenen Versionen zur Ver¬ 
fügung. 

4. Didaktischer Computer 

Das Bonusprogramm dieser Ausgabe ist erst 
recht ein Hit: ’DC’ steht für 'Didaktischer Com¬ 
puter’. Dies Programm stellt eine Computersi¬ 
mulation zur anschaulichen Erlernung der As¬ 
semblersprache und der Vorgänge in einem Mi¬ 
kroprozessor dar - für Einsteiger ausgezeichnet 
geeignet, aber auch Profis werden ihre helle 
Freude an dieser Simulation haben! Die Bedie¬ 
nungsanleitung DC.DOC kann mit TYPE auf 
den Bildschirm geholt werden. 
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GFA-FAKT 

Hersteller: GFA Systemtechnik 
Heerdter Sandberg 30 
4000 Düsseldorf 1 
Preis: 149,— DM 

Das Programmpaket der Firma 
GFA Systemtechnik umfaßt die 
Funktionen Lager Verwaltung, Rech¬ 
nungsschreibung, Textverarbeitung 
und Serienbrieferstellung für alle 
PC’s. 

Die bequeme Menüsteuerung kann 
wahlweise mittels Cursortasten oder 
der Maus erfolgen. 

In der Lagerverwaltung bietet GFA- 
FAKT neben den Grunddaten mehrere 
unterschiedliche Preisstufen, automa¬ 
tisch kalkulierte Bruttopreise, sowie 
die Kontrolle der Lagermenge. Die Ar¬ 
tikel können auch in mehreren Artikel¬ 
dateien verwaltet werden. Über die je¬ 
weiligen Artikelnummern kann in der 
Rechnung auf die Lagerposition zu¬ 
rückgegriffen werden (am einfachsten 
wohl über eine Lagerliste). Die Adres¬ 
se des Kunden wird entweder über eine 
Kundennummer aus der Adressdatei 
geholt oder bei der Rechnungsschrei- 


PDISK- 

Festplattenutility 

Vetrieb: ComFood Software GmbH 
Am Rohrbusch 79 
4400 Münster-Roxel 
Preis: DM 399,- inkl. Mwst 

Von der Firma ComFood gibt es das 
Programm PDISK, welches bei der 
Verwaltung der Festplatte hilfreich 
ist. 

Das Programm läßt sich wahlweise 
über Menüs oder mittels Eingabe der 
Befehle von der Tastatur bedienen. 
PDISK ist ein Werkzeug, mit dem man 
den Inhalt der Festplatte ganz oder teil¬ 
weise auf Disketten sichern, Dateien, 
Haupt- und Unterverzeichnisse ver¬ 
schieben, Baumstrukturen ansehen, 
kopieren, vergleichen und auch lö¬ 
schen kann. 

Durch Angabe von Optionen lassen 
sich bestimmte Auswahlkriterien z.B. 
Datum/Zeit, Fileart, eine Dateiliste 
etc. festlegen. Eine Zuwachssiche¬ 
rung, bei der nur die Dateien gesichert 
werden, die sich seit dem letzten Siche¬ 
rungsvorgang geändert haben, kann 


bung in eine Kundendatei eingegeben. 
Aus diesen Angaben generiert GFA- 
FAKT nun eigenständig eine komplette 
Rechnung, die in fünf unterschiedli¬ 
chen, veränderbaren Druckformularen 
ausgegeben werden kann. Mit Hilfe 
der Option < < RECHNUNGSFOR¬ 
MULARE > > kann die Ausgabemas¬ 
ke mit den Befehlen der Textverarbei¬ 
tung modifiziert werden. Sinnvoll ist 
etwa die Angabe der Firmenadresse im 
Rechnungskopf oder die Anzeige von 
Bankverbindungen im Rechnungsfuß. 
Natürlich kann GFA-FAKT auch un¬ 
abhängige Skontotexte verwalten und 
ausdrucken, sofern im Rechnungsfuß 
dafür Platz gelassen wurde. 

Eine sehr nützliche Möglichkeit be¬ 
steht darin, eine Rechnung, anstatt sie 
direkt auszudrucken, zuerst auf Fest¬ 
platte oder Diskette zu schreiben und 
die gesamten Einträge am Abend ’en 
bloc’ ausgeben zu lassen. Weiterhin ist 
der Ausdruck von Lager-, Kunden- 
und Bestelivorschlagslisten möglich. 
GFA-FAKT bietet außerdem eine inte¬ 
grierte Textverarbeitung, deren Befeh¬ 
le nahezu alle kompatibel zu WORD¬ 
STAR sind. 

Neben den Standardfunktionen einer 
Textverarbeitung können Blöcke bear- 


ebenso durchgeführt werden wie das 
Ansteuem von Bandlaufwerken oder 
anderen externen Einheiten. Weiterhin 
besteht die Möglichkeit, Dateien, Da¬ 
teiarten oder Verzeichnisse auszu¬ 
schließen, die Sicherungsfolge mit ei¬ 
nem Namen zu versehen oder den 
Schreibvorgang zu überprüfen. 

Mit dem Befehl CACHE lassen sich 
Daten nach einem intelligenten Algo¬ 
rithmus aus einem Speicher mit langsa¬ 
mem Zugriff (z.B. Festplatte), in einen 
Speicher mit schnellem Zugriff (RAM) 
zwischenpuffern. Wird z.B. ein be¬ 
stimmter Sektor auf der Diskette häufig 
angesprochen, speichert CACHE die¬ 
sen automatisch im RAM zwischen, so 
daß sich eine Beschleunigung bei der 
Arbeit ergibt. 

Weitere Befehle, die PDISK zur Verfü¬ 
gung stellt, sind: 

MOVE, PARK, TREECPY, 
TREECMP, TREEDEL sowie 
TREERD. Der erste Befehl MOVE er¬ 
laubt das Verschieben von Daten und 
Dateien innerhalb des Speichers. 
MOVE arbeitet ähnlich wie COPY, je¬ 
doch mit anschließendem Löschen der 
Quelldatei(en). 


beitet, Ränder gesetzt, Absätze forma¬ 
tiert sowie Schriftarten und -typen aus¬ 
gewählt werden. Dabei fallt aber ein 
Nachteil ins Auge: Bei jedem Wechsel 
der Schriftart werden entsprechende 
Steuerzeichen in den Text eingefügt, 
die das Textbild ein wenig verzerren. 
Das Maximalformat ist durch den Bild¬ 
schirm auf 80 Zeichen pro Zeile be¬ 
grenzt, ein horizontales Scrollen oder 
das Umschalten zwischen zwei Bild¬ 
schirmhälften ist nicht möglich. Die 
Re-Formatierung geschieht ähnlich 
wie bei WORDSTAR absatzweise, 
TrennungsVorschläge von GFA-FAKT 
können übernommen werden. Serien¬ 
brieferstellung ist ebenfalls mit Hilfe 
spezieller Sonderzeichen, die Position 
und Element bezeichnen, möglich. Da¬ 
bei können Selektionen vorgenommen 
werden, um z.B. bestimmte Kunden ei¬ 
nes PLZ-Bezirks o.ä. auszuwählen. 

Insgesamt gesehen kann man sagen, 
daß GFA-FAKT als Fakturierpro¬ 
gramm mit integrierter Textverarbei- 
tung in seiner Preisklasse - es kostet 
149,— DM — Gutes leistet. 


(M. Althaus/M. Zietlo w / co) 


Beim Transport des Computersystems 
läßt sich der Schreib-, Lesekopf der 
Festplatte mittels PARK auf eine Spur 
führen, auf der kein Schaden mehr an¬ 
gerichtet werden kann. 

Die letzte Gruppe von Befehlen befaßt 
sich mit dem Handling von Baumstruk¬ 
turen. TREECPY, kopiert Inhalts- 
bzw. Unterverzeichnisse oder Teile 
daraus, die man sich mit TREEDIR 
anzeigen lassen kann. Auch hier sind 
vielfältige Optionen vorhanden, mit 
der Sie die gewünschten Dateien festle¬ 
gen können. TREECMP ist ein Befehl 
zum Vergleichen von Baumstrakturen 
und Ästen. 

Um in verschiedenen Stufen des In¬ 
haltsverzeichnisses zu löschen, ver¬ 
wendet man den Befehl TREEDEL 
während man zum Löschen eines lee¬ 
ren Directories mit all seinen Unterver¬ 
zeichnissen das Kommando TREERD 
benutzt. Abschließend kann man sa¬ 
gen, daß man mit PDISK ein wirklich 
vorzügliches Hilfsmittel zur Verwal¬ 
tung seiner Festplatte erhält. 

(Althaus/Zietlow/co) 
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LI 5 - Universal- 
Drucker-Utility 

Bezugsquelle: 

Dipl.-Ing. J. Eggeling 
Wickersbacher Weg 36 
5900 Siegen-Trupbach 
Preis: DM 99,- 

Dieses Hilfsprogramm für Ihren 
Drucker bietet umfangreiche Mög¬ 
lichkeiten zur Ansteuerung und Ein¬ 
stellung peripherer Geräte, die über 
die parallele Schnittstelle (LPT1 bis 
LPT3) mit dem Rechner verbunden 
sind. 

Nach der problemlosen Erstinstallation 
lädt man das Programm L15 in den 
Speicher seines PC’s, wo es im Hinter¬ 
grund als residentes Programm stets 
auf Tastendruck abrufbereit zur Verfü¬ 
gung steht, d.h. es läßt sich jederzeit, 
auch während man sich in einem ande¬ 
ren Programm, z.B. einer Textverar¬ 
beitung befindet, über die Tastenkom¬ 
bination <Alt> <PrtSc> aufrufen. 
Nach den gewünschten Einstellungen 
gelangt man mittels Betätigen der 
< Alt> Taste zurück in seine Textver- 
arbeitung o.ä. 


VOLKSWRITER 3 

Hersteller: LIFETREE Inc. 

Vertrieb: Fachhandel 
Rechner: PC/XT/AT & Kompatible 
mind. 320 KB, 2 Laufwerke 
Monochrom, CGA oder EGA 
Preis: 1700, - DM 

Mit VOLKSWRITER 3 ist eine 
Textverarbeitung auf den Markt ge¬ 
kommen, die alle Superlativen, so¬ 
wohl in Sachen Leistung als leider 
auch in Sachen Preis für sich in An¬ 
spruch nehmen kann. 

Die Arbeit am Bildschirm gestaltet sich 
durch die übersichtliche Aufteilung in 
verschiedene Fenster sehr angenehm. 
Die Bedienung erfolgt ausschließlich 
über die Tastatur, eine Mausunterstüt¬ 
zung ist höchstens anstelle der Cursor¬ 
tasten möglich. Optionen werden über 
die Funktionstasten ausgewählt, die 
auf allen vier Ebenen voll belegt sind. 
Die Belegung wird im abschaltbaren 
Hilfsfenster angezeigt. 

Der Editor bietet neben 15 gleichzeitig 
verwendbaren und bequem zu erstel¬ 
lenden Layouts alle üblichen und benö¬ 
tigten Editierfunktionen. Insgesamt 
können vier Schriftarten plus diverse 
Sonderschriften verwendet werden. 


Ein Umschalten zwischen den paralle¬ 
len Schnittstellen LPT1 bis LPT3 ist 
über einen einfachen Tastendruck 
möglich. 

Bei der Installation können beliebige 
Tasten mit Steuersequenzen für den 
Drucker belegt werden. Um dann z.B. 
von Elite- nach Pica-Schrift zu wech¬ 
seln oder in den NLQ-Modus umzu¬ 
schalten, braucht man nur das Utility 
LI5 zu aktivieren und die mit den ent¬ 
sprechenden Steuerzeichen belegte Ta¬ 
ste zu drücken und beim nächsten Aus¬ 
druck steht die gewünschte Option zur 
Verfügung. 

Auch Matrixdrucker, die nicht über ei¬ 
nen IBM-Zeichensatz verfügen, z.B. 
Epson-kompatible Drucker, sind durch 
den integrierten IBM-Zeichensatz- 
Emulator in der Lage, alle IBM-Codes 
von ASCII 32 bis 255 auszugeben. 

Eine weitere Funktion von L15 erlaubt 
den Ausdruck von Logos. Ein Zeichen 
steht hierbei stellvertretend für einen 
vordefinierten String. Tritt nun beim 
Ausdrucken dieses bestimmte Zeichen 
auf und ist der Logodruck eingeschal¬ 
tet, so wird dieses Zeichen durch den 
String ersetzt. Mit dieser Funktion läßt 


sich z.B. ein Firmenlogo, Copyright¬ 
vermerke o.ä. erzeugen. 

Ein nützliches Extra ist die Hexprint¬ 
funktion, die z.B. bei der Fehlersuche 
in Programmen die zu druckende Datei 
auf Tastendruck in hexadezimaler Dar¬ 
stellung auf dem Drucker ausgibt. 

Oft muß man bei der Benutzung von 
Zeichen, die nicht auf der Tastatur zu 
finden sind, erst im Handbuch blättern 
und den entsprechenden Code nach¬ 
schlagen. Daß kann man sich nun spa¬ 
ren, denn LI5 bringt auf Tastendruck 
ASCII-Hilfetafeln auf den Bildschirm, 
die den kompletten IBM-Zeichensatz 
in dezimaler und hexadezimaler 
Schreibweise anzeigen. 

Obwohl optische Probleme unter der 
Benutzeroberfläche GEM auftraten, 
(Grafik-Fenster) liefen alle anderen 
von der Redaktion getesteten Anwen¬ 
derprogramme wie WORDSTAR, 
DBASE usw. einwandfrei. 

Das Drucker-Utility L15 ist trotz o.g. 
Einschränkung aufgrund seiner menü¬ 
geführten, einfachen Handhabung so¬ 
wie der komfortablen Steuermöglich¬ 
keiten und des günstigen Preises dem 
PC-Anwender zu empfehlen. 

(H. Cordes) 


Die Breite eines Dokumentes kann bis 
zu 250 Zeichen betragen, die Textlän¬ 
ge wird nur durch den Massenspeicher 
begrenzt. Weitere Features sind Grup¬ 
penschablonen, die Möglichkeit der 
Voreinstellung bestimmter Parameter, 
das alphabetische oder numerische 
Sortieren von Textzeilen und eine inte¬ 
grierte Notizzettel-Funktion. Neben 
Texten im VOLKSWRITER-Format 
können auch unformatierte Texte er¬ 
stellt werden, es wird der komplette 
Zeichensatz unterstützt. 

Die Druckeranpassung stellt kein Pro¬ 
blem dar, im Lieferumfang sind 71 
Druckertreiber enthalten, im Hand¬ 
buch sind auch umfangreiche Ver¬ 
gleichslisten enthalten, es dürfte also 
für jeden etwas dabei sein. Ähnlich wie 
Wordstar kennt auch VOLKSWRI¬ 
TER integrierte Punktbefehle, ein be¬ 
sonderer Clou ist das Verketten von 
Texten beim Ausdruck. 

Nun zu den Extras von VOLKSWRI¬ 
TER. Da wäre zunächst einmal eine 
Text-Merge-Funktion zur Erstellung 
von Serienbriefen. Die Listen lassen 
sich entweder mit VOLKSWRITER 
erstellen oder können von dBase über¬ 
nommen werden. Ein Datensatz darf 
maximal 250 Zeichen umfassen, die 
Felder eines Satzes können mehrfach 


verwendet werden. Ein weiteres Featu¬ 
re ist eine automatische Silbentren¬ 
nung. Ebenfalls vorhanden ist eine 
schnelle und leistungsfähige integrierte 
Rechtschreibprüfung mit umfangrei¬ 
chen Korrekturoptionen. Das Basisle¬ 
xikon bietet einen Wortschatz von 1,8 
Millionen Wörtern und kann durch ein 
Privatlexikon ergänzt werden. Prak¬ 
tisch ist auch die integrierte Rechen¬ 
funktion, die mit 15-stelliger Genauig¬ 
keit die vier Grundrechenarten, Pro¬ 
zentrechnung und die Verwendung von 
Konstanten erlaubt. Es sind sogar 
Zeilen- und Spaltenberechnungen 
möglich. Weitere Zusatzprogramme 
ermöglichen die Bearbeitung der Lexi¬ 
ka und den Import und Export von Da¬ 
ten. 

Die Installation von VOLKSWRITER 
geschieht fast vollautomatisch. Die 
Handhabung ist recht unproblema¬ 
tisch, das 360 Seiten starke deutsche 
Handbuch mit Referenzkarte vorbild¬ 
lich. 

Fazit: VOLKSWRITER 3 ist ein Text¬ 
verarbeitungsprogramm zu einem stol¬ 
zen Preis mit Leistungen von morgen. 

(M. Anton) 
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Unterhaltung ä la MS-DOS 

Wenn in den USA von Unterhaltungssoftware die Rede ist, kommt unweiger¬ 
lich der Name Electronic Arts ins Spiel. Das Firmensymbol, ein Quadrat, ein 
Kreis und ein Dreieck, ist Garant für gute Software und uns Grund genug, Ih¬ 
nen die neuesten Electronic Arts-Titel für MS-DOS-Rechner vorzustellen. 


World Tour Golf 



Computer: MS-Dos, 256 K, 

Color .Monochrom 
Preis: ca. 69,— DM 


Nach einem Spiel über 18 Löcher wissen 
Sie mehr über Ihren Gegner als wenn Sie 
18 Jahre lang mit ihm über einen Tisch 
hinweg Geschäfte machen. Ein in den 
USA sehr bekannter Sportjournalist hat 
dies einmal über den Golfsport gesagt. 
Da Golf nun einmal ein Sport ist, der sich 
so einfach nicht praktizieren läßt, hatten 
bisher wohl die wenigsten unter Ihnen 
Gelegenheit, mit Caddy und Schläger 
über einen Golfkurs zu wandern und da¬ 
bei zu versuchen, den kleinen weißen 
Ball unter Par ins Loch zu bekommen. 
Spätestens mit dem Aufkommen von 
Heimcomputern hat sich das geändert. 
Neben Schach ist der Golfsport eines der 
beliebtesten Themen für Computerspiele 
geworden, eine Vielzahl von vorliegen¬ 
den Versionen legen Zeugnis davon ab. 
Mit World Tour Golf legte nun auch 
Electronic Arts ihre Interpretation dieses 
eleganten Sports vor, und wie zu erwar¬ 
ten war, findet sich hier alles, was zu ei¬ 
ner guten Partie Golf gehört. Dem Spie¬ 
ler stehen zwanzig Kurse zur Auswahl, 
von denen einige real existieren, andere 
einfach erfunden sind. Die Darstellung 
und der Aufbau der Grafik sind absolut 
akkurat programmiert, und vermochten 
sowohl in punkto Qualität als auch bei 
der Geschwindigkeit zu überzeugen. Na¬ 
türlich hat auch hier der Spieler vor je¬ 
dem Schlag die Qual der Wahl, welchen 
Schläger für welchen Boden und welche 
Entfernung? Hat man dann endlich den 
Ball im Green, das ist das kleine Stück 
gepflegten Rasen um das Loch herum, 
beginnt der Kampf des Einlochens. 

Golf ist ein Spiel, das schnell erlernt ist, 
aber viel, viel Übung bis zur Meister¬ 
schaft braucht. Wie in Natura, so macht 
auch eine Computerpartie mit mehreren 


Spielern am meisten Spaß. Auf jeden Fall 
ist World Tour Golf eine der überzeu¬ 
gendsten Simulationen, die es von die¬ 
sem Sport gibt. 


Marble Madness 



Computer: MS-Dos 256K, 

Color, Monochrom 
Preis: ca. 69,- DM 


Es gibt nicht viele Computerspiele von 
denen man mit Fug und Recht behaupten 
könnte, das ist ein Klassiker. Wie auch 
immer, Marble Madness gehört zu dieser 
kleinen Riege von Spitzenprogrammen. 
Das Spielgeschehen, das den Spieler hier 
erwartet, ist einfach und schnell be¬ 
schrieben: Sie steuern eine Murmel 
(Marble), die über einen Parkour von 
mehr oder weniger verwinkelten, schie¬ 
fen Ebenen in ein Ziel geleitet werden 
muß. Das Szenario, in dem dieser Par¬ 
kour angesiedelt ist, erinnert an die Gra¬ 
fiken des Niederländers Mauritius C. 
Escher, dessen optische Unmöglichkei¬ 
ten sicherlich wesentlichen Anteil am 
Entstehen dieses Spieles hatten. In den 
ersten Leveln folgt die Murmel anstands¬ 
los der Steuerung und den bekannten Na¬ 
turgesetzen und rollt bergab. Für jedes 
Level besteht ein gewisses Zeitlimit, in 
dem man das Ziel erreicht haben muß; 
verbleibende Zeit wird dem Spieler im 
nächsten Level gutgeschrieben. Je weiter 
man in die faszinierende Marble Mad¬ 
ness Welt vordringt, desto schwieriger 
werden die Wege, die ins Ziel führen. Es 
gibt sogar ein Level, das sich Silly Race 
nennt und in dem die Schwerkraft umge¬ 
dreht wird, d.h. Ihre Kugel rollt bergauf. 
Aber nicht nur die gefährliche Strecken¬ 
führung erschwert das Vorankommen. 
Zu allem Überfluß haben sich in dieser 
Welt auch noch eine ganze Reihe von Un¬ 
tieren eingenistet, die ebenfalls versu¬ 
chen, Sie zu erwischen. Das Spektrum 


der Gegner reicht hier von der Amöbe bis 
zu garstigen schwarzen Murmeln. 
Marble Madness erblickte das Licht der 
Welt als Arcadenautomat. Entsprechend 
bunt und rasant fiel das Spiel dann auch 
aus. Kaum jemand mochte glauben, daß 
es möglich sei, ein Spiel dieser Machart 
halbwegs spielbar auf einen MS- 
DOS-Rechner umzusetzen. Electronic 
Arts hat bewiesen, daß es tatsächlich 
geht, zwar mit den systemspezifischen 
Einschränkungen, bei Grafik und Sound, 
aber trotzdem ist das, was übrigblieb, 
immer noch Marble Madness und macht 
rasend viel Spaß. 


Artlcfox 



Computer: MS-Dos 512K, 

Color, Monochrom 
Preis: ca. 69,— DM 


Ein Computerspiel, das ein 3-D-Szenario 
überzeugend darzustellen vermag, hat 
zumeist leichtes Spiel beim Spielefreund, 
der nach neuer Software Ausschau hält. 
Das 3-D nicht immer 3-D ist, und wel¬ 
chen Unsinn so mancher Programmierer 
mit der an sich guten Idee anstellt, brau¬ 
che ich Ihnen nicht vorzubeten. Wenn Sie 
sich allerdings ein Spiel zulegen wollen, 
dessen 3-D-Effekte überzeugen, dessen 
Spielgeschehen fesselt, das lange Spaß 
macht und dann noch auf einem MS- 
DOS-Rechner laufen soll, kommen Sie 
an Articfox nicht vorbei. Dieses Spiel 
versetzt Sie in das Cockpit eines ultramo¬ 
dernen Panzers, der im arktischen Eis 
eine Invasion vereiteln muß. Das 3-D- 
Szenario erreicht einen selten gesehenen 
Realismus. Da gibt es Berge, die umfah¬ 
ren werden müssen, Hügel, über die man 
auch hinwegfahren kann und Nebelfel¬ 
der, die die Sicht behindern. Als Fahrer 
des Arcticfox müssen Sie sich natürlich 
auch einer ganzen Reihe von Angreifern 
erwehren. Zur Verteidigng stehen einige 
ausgeklügelte Waffensysteme zur Verfü¬ 
gung, die Sie auch brauchen. Ziel des 
Spiels ist es, zu verhindern daß die garsti¬ 
gen Aliens die Atmosphäre der Erde in 
giftiges Gas umwandeln. Ihr Hauptauf¬ 
trag ist: Finde die Atmosphärenkonverter 
und vernichte sie. Und das ist auf jeden 
Fall kein leichter Job. 

(HS) 
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Bestellservice für CPC 464 - 664 - 6128 

Ich bestelle hiermit aus Ihrem Angebot: 


Anzahl Best.-Nr. Bezeichnung Datenträger Preis 




201 

Copyshop (Hardcopy- 
Programm) 

Cass 

59.- DM 



202 

Copyshop 

3" Disk. 

69,- DM 



20.2 

Copyshop (Vortex) 

5,25“ Disk 

69,- DM 

o 


101 

Power-Spiele-Pakel CPC 

4 Cass. 

50,- DM 

CT 


102 

Power-Spiele-Paket CPC 

4 3“ Disk. 

70,- DM 

52. 

CD 


10.3 

Startest - Das Superspiel 

Cass. 

24,- DM 

CD 


104 

Startest 

3" Disk. 

29,- DM 

CD" 

ö 

_ 105 

Know - Das Ratespiel 

Cass 

24,- DM 

3 

100 

Know 

3“ Disk. 

29.- DM 

r4- 

"ö 





C 

0 

204 

Special Öfter No 1 (4 Pgme.) 

3“ Disk. 

69,- DM 


_ 205 

Special Öfter No 2 (4 Pgme) 

3" Oisk 

69,- DM 


V 

107 

Special Offer No.3 (9 Spiele) 

3" Disk. 

49,- DM 

d 

Neu • Neu 

i * Originalspiele - Neu • Neu 

3 

0) 

108 

Solid Gold (5 Spieie-Hits) 

2 Cass. 

35,- DM 



109 

Solid Gold 

2 Disk. 3“ 

65,- DM 

u 

5 

wo 

10 Hit Games (Sportspiele) 

2 Cass. 

44,- DM 


(D 

3 

111 

10 Hit Games 

2 Disk. 3‘ 

59,- DM 

(D 

112 

The world's greatest (Epyx) 

Cass. 

35,- DM 


113 

The world s greatest 

3" Disk. 

49,- DM 


CD 

114 

6 Computer Hits (Superspiele) 

Cass. 

35,- DM 


115 

6 Computer Hits 

3" Disk. 

49,- DM 

=T 

(D 

116 

Clever und Smart (Ariolasoft) 

Cass. 

35,- DM 

CD 

■t 

117 

Clever und Smart 

3" Disk. 

49,- DM 

a 

CD 

< 

118 

Driller (Incentive Software) 

Cass. 

49,- DM 


5 

<D 

119 

Driller 

3“ Disk. 

59,- DM 

T? 

120 

Evening Star (Hewson) 

Cass. 

32,- DM 


121 

Evening Star 

3- Disk. 

49,- DM 



122 

Indiana Jones (U.S.Gold) 

Cass. 

35,- DM 



12.3 

Indiana Jones 

3" Disk 

49,- DM 

SB 


124 

Trantor (Go!) 

Cass. 

35,- DM 

0 


225 

Trantor 

3" Disk. 

49,- DM 

SB. 


. 126 

XOR (Logotron) 

Cass. 

35,- DM 



127 

XOR 

3“ Disk. 

49,- DM 



128 

Western Games (Magic Byte) 

3" Disk. 

49,- DM 


Gesamtbetrag_ 

zuzügl. 3,- DM Porto/Verpackung (Ausland 5.- DM) 

□ Den Betrag bezahle ich mittels des beigefügten Verrechnungsschecks 

□ Ich bitte um Lieferung per Nachnahme, zuzügl der Nachnahmegebühr (nur innerhalb der BHD) 


Dalum Unterschritt (bei Muiderjänrigen Unterschritt des geselzl Vertreters 


»Joyce-Bestellservice« 
Knüller für Joyce-Fans 

•c ache von Ihrem Angebot Gebrauch und bestelle hiermit 

«: _ Stck. »Praktische Textverarbeitung mit Joyce« 

— ein Buch-Disketten-Paket für praxisnahe 




Anwendungen mit Joyce nur 

89,- DM 

JT 

Stck. 

Sonderheft Joyce Nr. 1 

20,- DM 

JE 

_ Stck. 

Databox zum Sonderheft Joyce Nr .1 
— viel Software für wenig Geld, Diskette 3“ 

30,- DM 

JüL 

Stck. 

Sonderheft Joyce Nr. 2 

20,- DM 

ar~ 

_Stck. 

Databox-Diskette Nr. 1 zum Joyce SH 2 

30,- DM 

Jäc 

_Stck. 

Databox-Diskette Nr. 2 zum Joyce SH 2 

24,- DM 

3R- 

_ Stck. 

Kombipack, enthält Diskette 1 + 2 zum 

Joyce Sonderheft Nr. 2 

48,- DM 


Stck. 

Joyce Programmsammlung Vol.1 

Diskette 3“ 

59,- DM 


Stck. 

Joyce Programmsammlung Vol.2 

Diskette 3“ 

49,- DM 


;pE U 

_Stck Joyce Programmsammlung Vol. m 

- Hochwertige Software zum Tiefstpreis, 

Diskette 3“ 69,- DM 


Beeümtbetrag 


' 1 3.- Porto/Verpackung. Per Nachnahme zzgl Nachnahmegebühr 
i Ausland ist Nachnahme nicht möglich.) 




Betrag bezahle ich mittels des beigefügten Verrechnungsschecks 
ne um Lieferung per Nachnahme zuzüglich der Nachnahmegebühr 
innerhalb der BRD) 


Unterschrift (bei Vlinderjähngen des geserzl Vertreters) 
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Ö Ja senden Sie 
mir bitte sofort 

_ expi. Mehr Erfolg 
mit Schneider 
CPC 464/664/6128 


Schneider 


Mehr Erfolg mii 
der CPC 464 664 6128 




I 



strapazierfähiger Ringbuchord- 
ner, Format DIN A4, Grundwerk 
ca. 400 Seiten, Bestell-Nr.: 2400, 

Preis: DM 92,- 

Aile2-3 Monate erhalte ich Ergän¬ 
zungsausgaben zum Grundwerk 
mit Jeweils ca. 120 Seiten zum 
Seitenpreis von 38 Pfennig. (Abbe¬ 
stellung jederzeit ohne Angabe 
von Gründen möglich.) 

_Expl. mit der gesamten im Werk enthalte¬ 
nen Software und zusätzlichem Adreßverwaltungs- 
programm zum Preis von 19,80 DM. 

Meine Anschrift: 




Name, Vorname 


Straße, Hausnummer 


PLZ, Wohnort 


Datum 


Unterschrift 


Bitte unterschreiben Sie auch Ihre Sicherheitsgarantie, 

mit der Sie folgendes zur Kenntnis nehmen: Sie haben das Recht, ihr angeforüertes werk 
sowie jede nachfolgende Ergänzungsausgabe innerhalb von lOTagen ab Lieferung an den 
INTEREST-VERLAG, industriestraße 21, 8901 Kissing zurückzusenden, wobei für die Frist- 
Wahrung das Datum der Absendung genügt. Sie kommen dadurch von allen Verpflichtun¬ 
gen aus der Bestellung frei 
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Unterschrift 












































Dieses speziell für Schneider CPC 464/664/6128 

entwickelte Nachschlagewerk gibt Ihnen: 

• hundertprozentig lauffähige Program¬ 
me und Anwendungsbeispiele für Wirt¬ 
schaft, Technik und Hobby 

Sie erhalten u. a. in Teil 5 menügesteuerte Pro¬ 
gramme, die Sie bequem mit einer Maus 
steuern können, sowie darauf abgestimmte 
Programme zur Datenauswertung und Datei¬ 
verwaltung; 

• einen Programmier-Intensivkurs in Tur¬ 
bo- Pascal. Er sorgt für optimalen Lernerfolg: 
Durch überschaubare Kurseinheiten erfahren 
Sie alles über Pascal-Operationen und Steuer¬ 
strukturen bis hin zu Prozeduren und Funktio¬ 
nen; 

• neue Tips, Tricks und Utilities 

wie Operator-Utilities, Basic- und Grafik-Utili- 
ties, automatische Menüs... 

• ein Basic-Befehlskompendium mit 
nützlichen Anwendertips wie z. B. Simula¬ 
tion von CPC 664- und 6128-Befehlen auf dem 
CPC 464; 

• einen systematischen Grafikkurs: Er ver¬ 
mittelt Ihnen Schritt für Schritt die grafischen 
Möglichkeiten Ihres CPCs, und nebenbei ent¬ 
steht ein hervorragendes Grafikprogramm mit 
Sprite-Editor und allem, was dazugehört: von 
hochauflösenden Grafikprogrammen bis zur 
Animationsgrafik; 

• detaillierte Systembeschreibungen 

Sie lernen Aufbau und Aufgaben sämtlicher 
Bausteine kennen und natürlich auch das Zu¬ 
sammenspiel dieser Komponenten. Mit diesem 
Wissen sind Sie selbst für „Hardware-Operatio¬ 
nen“, wie das Ersetzen von PROMs durch 
EPROMs, bestens gerüstet; 

• Bauanleitungen für Hardwareerweite¬ 
rungen wie Reset-Taster oder Druckerschnitt¬ 
stelle mit 8 Bit; 

• Ergänzungsausgaben 

zum Grundwerk mit neuen Programmen, Routi¬ 
nen, aktuellen Hard- und Softwareerweiterun¬ 
gen, zusätzlichen Sprachkursen und prakti¬ 
schen Anwendungshinweisen. 

• Am besten gleich mitbestellen: 

Diskette mit der gesamten im Werk enthalte¬ 
nen Software und zusätzlichem Adreßverwal- 
tungsprogramm zum Preis von DM 19,80. 


Fordern Sie noch heute an: 

Mehr Erfolg mit 

Schneider CPC 464/664/ 6128 

strapazierfähiger Ringbuchordner, Format DIN A4, 
ca. 400 Seiten, Bestell-Nr. 2400, Preis: DM 92,-. 

Alle 2-3 Monate erhalten Sie Ergänzungsausgaben zum 
Grundwerk mit jeweils ca 120 Seiten zum Seitenpreis von 
38 Pfennig (Abbestellung jederzeit möglich) 




, . Technik unu •h'B'bungen 


ndustriestraße 21 
D 8901 Kissing 
Tel 08233/23900 


INTEREST VERLAG 

Fachverlag 

lur anspruchsvolle 

Freizeitgestaltung 
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TOOLBASIC 1.1 - 

Handwerkszeug für 
BASIC2-Programmierer 

Die für den Schneider PC mitgelieferte Programmiersprache BASIC2 stellt 
einen umfangreichen Befehlssatz für den BASIC-Programmierer zur Verfü¬ 
gung. Um ein BASIC-Programm zu bearbeiten und zu verändern, muß 
man sich wohl oder übel mit Hilfe des Editors durch das Listing durcharbei¬ 
ten. Hier setzt TOOLBASIC 1.1 an und unterstützt die Arbeit des Program¬ 
mierers mit vielen nützlichen Routinen. 


TOOLBASIC wurde selbst in BASIC2 
geschrieben, d.h. um es zu laden, müs¬ 
sen Sie sich unter der Benutzeroberflä¬ 
che GEM wie gewohnt in das BASIC2 
begeben. Von dort aus laden und star¬ 
ten Sie das Utility mit dem Namen 
TOOL 1.BAS. Nach dem Programm¬ 
start ist zuerst das aktuelle Laufwerk zu 
bestimmen. Dies erreichen Sie, wie 
alle anderen Funktionen auch, durch 
Auswahl mit der Maus und Betätigen 
der linken Maustaste. Danach wählen 
Sie auf die gleiche Weise das Directory 
aus. Mit der Funktion > >wahl> > 
und < < wähl < < können Sie bis zu 
100 Directories durchblättem. 
< < menü < < bringt Sie in das vor¬ 
herige Menü zurück. Alle vorhandenen 
Directories werden in sortierter Rei¬ 
henfolge angezeigt. Nun müssen Sie 
noch die gewünschte Datei, die Sie be¬ 
arbeiten möchten, an wählen. Bearbei¬ 
ten können Sie jedoch nur Dateien, die 
im ASCII-Format abgespeichert wur¬ 
den. Das sind Ihre BASIC2-Program- 
me aber auch Textfiles und verschiede¬ 
ne andere Dateien. Nachdem Sie Lauf¬ 
werk, Directory und Datei ausgewählt 
haben, können Sie jetzt mit der Bear¬ 
beitung des Files beginnen. Schalten 
Sie die Druckerausgabe, wie ge¬ 
wünscht, ein oder aus. Es stehen Ihnen 
nun folgende Funktionen zur Verfü¬ 
gung: 

— Listing drucken: 

Hiermit wird die aktuelle Datei ausge¬ 
geben. Jede Zeile erhält zur Orientie¬ 
rung eine Zeilennummer. Die Ausgabe 
enthält zusätzlich eine Überschrift mit 
der gewählten Funktion, den Dateina¬ 
men sowie Datum und Uhrzeit. Blatt¬ 
perforationen werden selbstverständ¬ 
lich nicht überdruckt, seitlich haben 
Sie ausreichende Heftränder und die 
Blätter sind fortlaufend mit Blattnum- 
mem versehen. 

- REM-Texte drucken: 

Diese Funktion erlaubt es Ihnen, alle 
im BASIC2-Programm vorhandenen 


REM-Texte mit der jeweiligen Zeilen¬ 
nummer auszugeben. 

Für den Aufbau der Ausgabe gilt sinn¬ 
gemäß das zuvor Genannte. 

— Zeilen einzeln drucken: 

Mit dieser Funktion können Sie Teilbe¬ 
reiche aus Ihrem gewählten File ausge¬ 
ben. Mit Leereingabe wird der Vor¬ 
gang, wie bei fast allen Funktionen 
auch, abgebrochen und in das Haupt¬ 
menü zurückgekehrt. 

— Cross-Referenzliste drucken: 

Dieser Programmteil untersucht Ihr 
gesamtes BASIC2-Programm nach Va¬ 
riablen, Labels und Sprungzielen und 
gibt diese dann in sortierter Form geli¬ 
stet mit den entsprechenden Zeilen- 
nummern aus. In der linken Spalte steht 
der Ausdruck mit angefugtem $ für 
String variablen, Feldvariablen erhal¬ 
ten die beiden Klammerzeichen 0 als 
Kennzeichnung. In der rechten breiten 
Spalte stehen dann die jeweils zugehö¬ 
rigen Zeilennummem, in denen der 
entsprechende Ausdruck gefunden 
wurde. 

— Suchen nach Variablen/Befehlen: 
Dieser Programmteil ermöglicht es. 
Ihnen ganz gezielt nach bestimmten 
V ariablennamen, Label-Bezeichnun¬ 
gen oder auch BASIC2-Befehlen zu su¬ 
chen. Ist TOOLBASIC fündig gewor¬ 
den, so erfolgt eine Ausgabe ähnlich 
der Cross-Referenz-Liste. 

— Suchen nach Sprungzielen 
(LABEL): 

Dieser Programmteil von TOOLBA¬ 
SIC gibt Ihnen eine Liste aller im Ar¬ 
beitsfile enthaltenen LABELs mit Na¬ 
men und Zeilennummer aus. 

Während die bisherigen Funktionen 
von TOOLBASIC dazu dienten, Ihr 
BASIC2-Programm zu untersuchen, so 
dienen die folgenden Funktionen dazu, 
es zu verändern und zu bearbeiten. Da¬ 
bei geht das Utility sehr vorsichtig mit 
Ihren Programmen um, und legt bei je¬ 


der Veränderung ein .BAK-File an. 
Beachten Sie jedoch, daß bei der zwei¬ 
ten Bearbeitung die Ursprungsversion 
Ihres Files nicht mehr vorhanden ist. 

— REM-Texte oder Leerstellen aus 
Programm entfernen: 

Ebenso wie Leerstellen lassen sich 
auch alle REM-Texte aus Ihrem 
BASIC2-Programm entfernen. Damit 
läßt sich unter Umständen eine Menge 
Speicherplatz einsparen. 

— Ersetzen von Variablen/Befehlen: 
Mit dieser Funktion können Sie einzel¬ 
ne Variablen oder auch Befehle in Ih¬ 
rem BASIC2-Programm gegen beliebi¬ 
ge andere austauschen. Ist TOOLBA¬ 
SIC beim Durchsuchen Ihres 
BASIC2-Programmes fündig gewor¬ 
den, so wird die entsprechende Pro¬ 
grammzeile mit Zeilennummer ange¬ 
zeigt. Der gefundene Suchbegriff wird 
markiert und Sie werden gefragt, ob 
ein Austausch stattfinden soll. Am 
Ende des Vorganges wird eine Liste 
mit dem ausgetauschten Begriff und 
den zugehörigen Zeilennummem aus¬ 
gegeben. 

— Programm anfügen (MERGE): 

Mit dieser Funktion ermöglicht 
TOOLBASIC Ihnen Ihr BASIC2-Pro- 
gramm mit anderen BASIC2-Program- 
men zu verbinden. Nach Aufruf dieser 
Funktion werden Sie aufgefordert, Di¬ 
rectory und Datei des anzufügenden 
BASIC2-Programmes/Programmteiles 
auszuwählen. Programme werden im¬ 
mer an das Ende eines bestehenden 
Programmes angefügt. 

Die nachstehenden Befehle sind zu¬ 
meist selbsterklärend: 

— Programm kopieren (COPY) 

— Programm umbenennen 
(RENAME) 

— Programm löschen (KILL) 

— Programm laden (LOAD) 

Nach getaner Arbeit gelangen Sie mit 
dem Befehl ENDE wieder zu BASIC2 
zurück. 

Sicherlich werden Sie die vielfältigen 
und komfortablen Möglichkeiten die¬ 
ses Utilities bald nicht mehr missen 
wollen. 

(Gerd Späth/co) 

Hinweis: 

Alle diejenigen, die TOOLBASIC 1.1 
nicht abtippen wollen, können zum 
Preis von DM 24,- zzgl. DM 3, — 
Porto/Verp. unsere PC DATABOX 
1/88 ordern, auf der, neben anderen 
ausgewählten Programmen, auch das 
Utility TOOLBASIC 1.1 enthalten ist. 

Ihre PC-Redaktion 
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REM BASIC2-TOOL1 Vars.1.1 
REM • by Garet Späth 
GOSUB 1n1t_menü 
LABEL lw 

WINDOW #1 OPEN:IF wähl Oll THEN CLS «1 
PRINT »1,AT(3;2);"Bitte warten... 

FOR 1*1 TO 100:nam$(1NEXT 
niitiK 1 ) = "0r1 ve A" : nam*(2 ) = "Dr1 ve 
B" :nam* (3)="0r1ve C“: nam$( 4) * "Drive D" 
maxiang=8:gasamt=4:manü*(0)=”Wahl“ 

GOSUB 1nlt_f enster:manü*(anz-2) = "< <ende< <“ 

PRINT «1,AT<3;2>;COLOR<12);EFFECTS(64);"Laufwerk 
anwähl an... 

GOSUB men0_wah1 

nam_lw=64+wahl:nam_pfad*=CHR*(nam_lw)+":\" 
menQ$(anz-2)*" < <Menü< <":IF men_nr*l THEN GOTO 

anda 

LABEL pfad 

WINDOW *1 OPEN:IF wähl Oll THEN CLS *1 
PRINT # 1, AT ( 3 ; 2 ); " B11 te warten... 

FOR 1=1 TO 
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100:nam$(1NEXT:men*(0)=nam_pfad$:max1ang=LEN(menü$(0)) 
GOSUB 1n1t_dir 
GOSUB schell_sort 
GOSUB 1nlt_fenater 
PRINT 

•1,AT{3;2);COLOR(12);EFFECTS(64);"01rectory 
anwähl an..," 

GOSUB menü_wahl 

name_pfad$=dat_nam$:nam_dat*=menü$(wahl) 

IF men_nr=l THEN GOTO lw 
LABEL datel 

WINDOW #2 CLOSE:WINDOW #1 0PEN:IF wähl Oll THEN 
CLS #1 

PRINT S1,AT(3;2);"Bltte warten... 
name*=nama_pfad*:men_nr=3 

FOR 1 = 1 TO 100 : nam$< 1 ) = " " : NEXT : menü*(0 >=nam_dat* 
maxiang=LEN(manüS(O))+3:IF maxlang<12 THEN 
maxiang =12 

GOSUB lesen_dat 

PRINT *1,AT{3;6);“Daten werden sortiert..." 

GOSUB schell_sort 
GOSUB 1n1t fenater 
CLS #1:PRINT 

»1.AT(3;2);COLOR(12);EFFECTS<64);"Datei 
anwählen..." 

GOSUB menü_wahl 
name$=dat_nam$ 

IF men_nr=2 THEN GOTO pfad 

ein_name*=menü*( 0 )+name$:menü*( 0 )=menü$(0)+name* 

IF ateuar$= “mer^ge 1 ** THEN GOTO mer_gel 
LABEL hauptmen 

WINDOW »2 CLOSE:WINDOW #1 OPEN:CLS *1 
PRINT «1,AT(3;2);"Bitte warten... 

FOR 1=1 TO 100:nam*(1)="":NEXT:RESTORE 
GOSUB inlt_hauptmen 
GOSUB 1n1t_fenater 

IF prt=TRUE THEN nam*(1)=nam$(1){1 TO 23)+" EIN" 

ELSE nam*(1)=nam*(1){1 TO 23)+“ AUS" 

PRINT 

«1,AT(3;2);COLOR(12);EFFECTS(64);"Funktionen 
anwählen..." 

GOSUB menü_wah1 
IF men_nr=3 THEN GOTO datel 
tltel*=nam*Cwahl ) 

IF wahl>l THEN WINDOW #1 CLOSE-WINDOW *2 TITLE 
titel$:CLS *2:WINDOW »2 OPEN 
IF wähl>=B AND wähl<=11 AND 
INSTR(menü*(0),“.BAK")>0 THEN but=ALERT 3 TEXT 
nam*(wähl)."mlt -BAK - File","nicht möglich!" 

BUTTON RETURN "OK"-.GOTO hauptmen 
ON wähl GOTO 

4us_prt,liating.remprint.zei1druck,cr03,such_txt,1 
_pr1nt.1eer_weg,rem_weg,ersetz_txt,mer_ge,kople,re 
_name,lösche,lade,teil_save,teil_cross,ende 
LABEL ende 

WINDOW «menü CLOSE:CLOSE «menü 

CLEAR RESET 

END 

LABEL menü_wahl 
REPEAT 

GOSUB menüanz 


IF wahl=anz-2 ThEn men_nr=m«n_nr-2:IF man_nr<0 
THEN man_nr=0 

IF wahl=anz-l THEN IF erstea<gesamt-an*+5 THEN 
eratea=erat«a+anz-4 

IF wahl=anz THEN erste*=erstes-anz-3: IF «rst«Xl 
THEN erstes=l 

UNTIL( wah1 >0 AND wähl< anz-1 ) AND manu* (wähl)>" “ 
dat_nam*=roenü*< wähl ) : men_nr=men_nr+l: wähl=wahl+erstos- 
l:arstas=l 

WINDOW «menü CLOSE 
RETURN 

LABEL lesen_dat 
1=0 

REPEAT 


1 = 1 + 1 

n am*(1)=FIN0$<name*,1) 

IF 1=100 THEN but=AL£RT 3 TEXT "Direktory 
anthält übar 100 DatBlan","Angazeigt werden nur 
die eraten",“100 Dateinamen." BUTTON RETURN 
" 0 K":nam*( 1 )=”" 

UNTIL nam*(1)="" 

gesamt= 1 -l 

RETURN 

LABEL abhall_aort 
1 6=gasamt 
LABEL 1f_naxt 
IF 1 6< = 1 THEN RETURN 
16=INT(1fl/2):14=gesamt-16 
LABEL f_next 
10=0 


FOR 11*1 TO 14 
x=1 1 +1 6 

IF nam$<11)>nam*(x)THEN SWAP 
nam*( 1 l),nam*(x):10=1 
NEXT 11 

IF 10>0 THEN GOTO f_naxt 
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aOTO 1f_n«xt 
LABEL menüanz 
CLS »menü 

FOR 1=1 TO anz-3:menü*(iNEXT 
FOR 1=1 TO anz 

IF(1<anz-3 AND 1<=gesamt)THEN 
menü*(1)=”"+nam*(1+erstes-l) 

PRINT #manü,AT(2;1);menü*(1); 

NEXT 

wähl=0:zell_nr=0:innerh=FALSE 
REPEAT 

ze11ealt=zetl_nr 

za 1 I_nr=an2-INT(<YMOUSE-YPLACE(»menü)>/6) 
xmau s=XMOUSE-XPLACE(»menü) 

IF zel1_n r > anz OR zeil_nr<l THEN GOSUB 
außerhalb:GOTO no_wahl 

IF xmau9J XWINDOW(»menü)OR xmaus<0 THEN GOSUB 
außerhalb:GOTO no_wahl 
1nnerh=TRUE 

IF ze11ealt=ze1l_nr ANO Innerh GOTO no_wah1 

GOSUB normal 

PRINT 

«menü,AT<2;zell_nr1;COLOR(12);EFFECTS(S4);menü*(ze 
1l_nr);:wahl=zeil_nr 
LABEL no_wahl 
UNTIL BUTTON>-1 
RETURN 

LABEL außerhalb 

IF Innerh THEN GOSUB normal 
1nnerh=FALSE 
wähl=0 
RETURN 
LABEL normal 

IF wahlOO THEN PRINT 
•menü,AT(2;wehl);menü*(wähl ); 

RETURN 

LABEL 1n1t_menü 

ON ERROR GOTO fehler 
CLOSE 

FOR 1=1 TO 4:CLOSE WINDOW 1:CLOSE *1:NEXT 
OPEN «1,WINDOW 1 
WINDOW #1 SI2E 275,330 
WINDOW #1 PLACE 355,10 

WINOOW #1 TITLE "8ASIC2-TOOl1 8 by Späth" 

WINDOW »1 OPEN 
OPEN «2,WINDOW 2 

WINDOW #2 FULL:WIN00W *2 CURSOR ON 
menü=4:xpd=8:ypo=90:anz=lB 
OIM menüt(anz) 

DIM nam*(100),namet(15) 
ebene_max =10 

DIM anz_d1r(ebene_max)BYTE 

erates=l:men_n r=l:namet="•.*":prt=TRUE 

seit_l6nge=72 

r_o= 0 :r_u= 12 :zpa_max=ae1t_linge-r_o-r_u 
spa_»nz=80:r_l=8:r_r= 0 :apa_max=apa_anz-r 1 -r r 
tab_dim=300 

OIM vartd TO tab_d1m),ze1_nr${1 TO tab_dim) 

FOR 1=1 TO tab_d1m:z«1_nr$?1:NEXT 
RECORD ze1_rec;ze1_wert UWORO 
Ze1_wert*=STRING*(2,0) 
trn_anz=19 

DIM ze1_trnt(1 TO trn_anz)FIXED 1 
RETURN 

LABEL 1n1t_fenster 

anz=gesamt+4:IF anz>18 THEN anz=18 
menü*(anz-2) = "< <menü<<":menü*(anz- 
1 ) = " > >wahl > >" :menü$( anz ) = ''< «wähl << " 
maxiang=max!ang+ 2 
CLOSE WINOOW manü:CLOSE «menü 
OPEN «menü WINDOW menü 

SCREEN «menü TEXT maxlang FIXED,anz FIXED 

SET »manü FONT 1 

SET •menü POINTS 10 

WINDOW «menü PLACE xpo.ypo 

WINOOW »menü TITLE menü*(0) 

WINDOW «menü OPEN 
RETURN 

LABEL 1nlt_d1r 

FOR 1=0 TO ebene_max:an2_d1r(1)=1:NEXT 
ebene=0:1 =0 

IF FIND*(CHR*(nam_lw)+":•>•")■"" THEN 
sesamt=1:RETURN 

DRIVE CHR$(nam_lw)+":” 

CHDIR "V 
GOSUB 1esen_d1r 
gesamt»! 

RETURN 

LABEL 1esen_d1r 
REPEAT 

nam_d1r$(ebene) = FINDDIR*(anz_dir(ebene )- 
2 *(ebene< > 0 )) 

IF nem_d1r$(ebene)="” THEN 
1=1+1:nam*(1)=CHR$(nam_lw)+":"+CHDIR*:IF 
LEN(nam$!1))Jmaxlang THEN maxiang=LEN(nam$(1)) 

IF nam_d1 r$(ebene) = ”GOTO weiten 
anz_d 1 r(ebene)=anz_d 1 r(ebene)+l 
CHDIR nam^dlr*(abene) 
ebene=ebene+l 
GOSUB 1eaen_d1r 
ebene=ebene-l 
LABEL welterl 
UNTIL nam_d1 r$(ebene) = - "' 

IF ebene>0 THEN CD .. 

RETURN 

LABEL 1n1t_hauptmen 
READ gesamt 
maxi ang = LEN(menü*( 0 )) 
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FOR 1=1 TO gesamt 
REAO nam*(1> 

IF L£N(nam*(i))>max1ang THEN 
maxiang=LEN(nam*( 1 )) 

NEXT 1 

maxi ang=maxlang+ 2 

FOR 1=1 TO trn_anz:READ ze1_trn*(1):NEXT 

men nr=4:fehler=FALSE 

15 = 0 

REPEAT 

12=15 

15=INSTR(12+l,menü*(0), \") 

UNTIL 15=0 

arb_f1le*=menü*(0){TO 12)+"XXXXXXXX.XXX" 

RETURN 

LABEL 11 st 1ng 
GOSUB Init 
GOSUB dat_auf 
anz_dat=anz_dat +1 
zeil_nr= 0 :seit_n r=l 
zps_akt =1 
WHILE NOT EOF{«5) 

LINE INPUT »5,zelle* 

zeil_nr=ze1l_nr+l 

IF zelle$="" THEN zeile*= 

IF zps_akt=l THEN GOSUB seit_anf 
IF wähl=3 THEN GOSUB such 
IF wähl=4 THEN GOSUB zeil_wahl 
IF wähl=7 THEN GOSUB such 
GOSUB zeil_vor 

IF zps_akt=zps_max THEN GOSUB seit_end 

WEND 

CLOSE *5 

IF prt=TRUE AND ZpS_akt>l THEN LPRINT,CHR*( 121, 
GOTO hauptmen 
LABEL zel1 _vor 

IF zel 1 e*=" '' THEN RETURN 

1 ee r =0 

REPEAT 

1ee r=1eer+1 

UNTIL(zei1e*{1eer}>CHR*(32)OR 1eer>LEN(zei1e* ) ) 
aus*=STRING*(4-LEN(STR$(ze1l_nr)),“ 

")+STR*(zeil_nr)+" " 

zelle*=aus$+zeile$:leer=leer+4 

GOSUB zel1_aus 

RETURN 

LABEL dat_auf 

name$=FIND*(ein_name$,anz_dat > 

IF name*="“ AND~anz_dat=l THEN PRINT »2,"Datei 
nicht vorhanden!":GOTO hauptmen 
OPEN #5 INPUT e1n_n«me* 

RETURN 
LABEL cros 
GOSUB Init 
GOSUB dat_auf 
WHILE NOT~£OF(#S) 

LINE INPUT #5,zelle* 

IF wähl=17 THEN G05UB zeil_wahl 
PRINT *2,zeil_nr;" "izeile* 

LABEL suCh_cros 

spa = 0 

zell_end=FALSE 

IF wähl=6 THEN 15=INSTR(1,zei1e*,suchl*):IF 15=0 
THEN zell_erd=TRUE:zei 1 e$ = "" 

IF wähl=10 THEN i5 = INSTR(1,zeiIe*.sucn1 *):IF 
i5=0 THEN zeil_end=TRUE 

zell_len=LEN(zeile$):IF zelle*»"' THEN 
zell_end=TRUE 

WHILE NOT zeil_end 

GOSUB zeichen_läsen 

IF var_ist THEN GOSUB variable 

IF bef_1st THEN GOSUB befehl 

IF zel*=CHR*(34)THEN 

spa=INSTR(spa+I,zeile$,CHR*(34)):IF »pa=0 THEN 
zeil_end=TRUE: 

WENO 

IF zeijs" 1 " THEN bef_ist=TRUE:GOSUB befehl 
IF wähl=3 OR wähl = 7 OR wahl=9 THEN RETURN 
bef *=••■■ 

IF wähl=8 THEN min*=STRING*(LEN(zeile*), ):IF 
zeile*=m1n* THEN zei1e$=“":mln$= 

IF wah 1 = 8 AND zeileJO'"' THEN PRINT #6,zelle* 

IF wähl=10 THEN PRINT «6.Zeile* 
zell_nr=ze 1 l_nr+! 

WEND 

IF wahl=I0 THEN CLOSE:GOSUB new_nam 
IF wähl=8 THEN CLOSE:GOSUB new_nam:GOTO hauptmen 
GOTO aus_p 
LABEL zelchen_lesen 

trn_ist=FALSE:leer=spa 
IF z*1 *=■;■' THEN bef*= ”" 

REPEAT 

spa=spa+l:zei*=zeile*{spa) 

IF zei*=" " THEN trn_ist=TRUE 
UNTIL zel*<>" " 

IF trn_iat THEN spa=spa-l zeI* = ze<1 et{spa) 

IF spa>zeil_len THEN 
ze1l_end=TRUE:trn_ist=TRUE:RETURN 

IF ze1*> = "a“ AND zei$< = ''z" THEN var_lst=TRUE 
ELSE var_1st=FALSE 

IF zei*>="A" AND 2ei*<="Z" THEN bef_1st=TRUE 
ELSE bef_1St=FALSE 
FOR 1=1 TO trn_anz 

IF zei trn$(i)=zei* THEN trn_ist=TRU£ 

NEXT i 

IF wahl=8 ANO trn_ist THEN GOSUB leerwag 
IF zel" THEN trn_i st = TRU£:zei l_end = TRUE 
RETURN 
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-ABEL variable 
wort$="'' 

REPEAT 

wOrtt=wort$+XOl$ 

GOSUB zeichen_lesen 
UNTIL trn_ist 
IE zeit*"(" THEN 

*ortt=wortt+" (>•' : suchab=spa : suchab=INSTR ( suchab, ze 
’1•$,")"):REPEAT:auchab=suehab+1:zei$=zai1a${auchab}:UNTIL 
za1 $< >" " OR suchab+l>zei1_1en 
LABEL var_neu 

IF wahl=S THEN GOSUB Herweg 

IF Wahl =6 THEN IF wort$Osuch$ THEN RETURN 

IF wahl=lO AND wdrt$=sucht THEN GOSUB ersetz 

IF wahl = 10 AND wortJOsuchJ THEN RETURN 

FOR i=l TO anz_tab 

IF wort$<>var$(1)THEN NEXT 

IF 1>anz_tab THEN GOSUB neu var ELSE GOSUB 
vmr_ilt 
RETURN 
LABEL befahl 

b#f_alt$=bef$:baf$=”" 

IF ze1$=. THEN 

beft=zeit:ze1t="":trn_1st=TRUE:GOTO oafenl1 
REPEAT 

bef$=bef$+zei$ 

GOSUB zeichen_leaen 
UNTIL trn ist 
LABEL befehl1 

IF wahl=6 THEN IF bef$=sucht THEN 
wort$=bef$:bef$="":baf_alt$ = :GOTO var_neu ELSE 

IF wähl=6 THEN RETURN 

IF wahl=a THEN GOSUB Herweg 
IF wähl*10 THEN IF bef$=such$ THEN 
wort$=bef$:bef$=“":bef_alt$="":GOTO vir_n*u 
IF b«f${l TO 2}="FN" AND(LEN(bef$))>2 THEN 
wort$=baf$:baft*"FN":GOSUB var_r«u 

IF baf$="REM" OR bef$=. OR baf$="DATA" THEN 

zell end=TRUE 
RETURN 

LABEL neu_var 

IF 1>tab_dim THEN PRINT *2,"Zu viele Variablen, 
tab_dim erhöhenGOTO endec 
vart( 1 )=wort$ 
anz_tab=anz_tab +1 
GOSUB var_alt 
RETURN 

LABEL var_alt 

IF bef$="GOTO" THEN code=l:GOTO weiter 
IF baf$="GOSUB" THEN code=2:GOTO weiter 
IF bef $="LABEL" THEN code=3:GOTO weiter 
IF bef$="READ" THEN code=4:G0T0 weiter 
IF bef_alt$="DEF" THEN code=5:GOTO weiter 
IF zei$=" = " AND [ bef $< > " IF " AND bef$<>''OR" AND 
bef tO"NOT" ANO bef$< >"AND” AND bef*<>"XOR")THEN 
code*6:GOTO weiter 
code =0 
LABEL weiter 

IF zeil_nr>=2“13 THEN but=ALERT 3 TEXT 
m*ni)$(0) , "1 st zu lang, es aind","max, SI91 Zellen 
möglich!" BUTTON RETURN "OK'HGOTO endec 
z«1_wert*2'13»cOdo+ze11_nr 
ze1_wert$.zet_rec.zei_wert=zai_wert 
zei_nr$( 1 )=zei_nr$< 1 )+zei_wert$ 

RETÜRN 
LABEL aus_p 
CLOSE:CLS #2 

zeil_nra=l:aalt_nr=l:zps_akt=l 
FOR 1*1 TO anz_teb 
mln$=CHRt< 255) 

FOR 12=1 TO anz teb 

IF m1n$>var$(i2)>HEN mln$ =var$<i2):mln_1nd=12 
NEXT 12 

IF zpa_akt=l THEN GOSUB se1t_anf 

zeileS=ver$(m1n_1nd):1eer»lB-LEN(var$(min_indl> 

IF 1«er>0 THEN zei1e$=zeileS+STRINGJ(1eer," ") 
ver$(mln_1nd)=CHRt(255 )+vart(m1n_1nd) 

FOR 11*1 TO LEN(za 1_nrt (mln_1nd))STEP 2 
zei_wert*z«1_nr$(m1n_1nd){11 TO 
i1+1}.ze1_rec.z«1_w«rt 

zeil_nr=ze1_wert AND(2"13-1) 

C©de*INT(ze1_wert/2"13) 

IF code=1 THEN ze11e$=ze11at+"GOTO" 

IF cOdo*2 THEN zeile$=zei1 at+"GOSUB” 

IF code=3 THEN za 11e$=zei1e$+"LABEL" 

IF code=4 THEN zeile$=zeile$+"READ" 

IF C0de=5 THEN zeile$=2elie$+"DEF" 

IF codo=6 THEN zei1e$=ze11«$+“=“ 
zeilei=ze11e$+STR$(zei1_nr)+"/" 

NEXT 11 

ze 11 _nra=zeil_nra+l:leer =18 
GOSUB zeil_aus 
NEXT 1 

IF prt=TRUE AND zps_akt>l THEN LPRINT,CHR$(12); 

LABEL endec 
GOTO heuptmen 
LABEL ze11_aua 

druck=epa_max-1aer 

PRINT #2,TAB(2);zeile${l TO leer}; 

IF prt=TRUE THEN LPRINT;TAB(r_l);ze11e${1 TO 
leer}; 

FOR 13=1eer+1 TO LEN(zei1et)STEP druck 
PRINT #2,TAB(2+leer);ze11e*{i3 TO 13+druck-l} 

IF prt=TRUE THEN LPRINT;TAB(r_l+1eer1;ze11«$(13 
TO 13+druck-l} 

zpe_akt = z ps_a k t +1 

IF zp«_akt=zps_max THEN GOSUB aeit_end 

NEXT 

RETURN 
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LABEL se1t_«nf 
zp»_akt=l 

IF prt*TRUE THEN FOR 12=1 TO r_o:LPRINT , "":NEXT 
PRINT *2,TAB(2);tite 1 $ 

IF prt=TRUE THEN LPRINT;TAB(r_l );11te1 $ 

PRINT *2,TAB(2>;"Programmname: ";name$;" 

";DATEt;" ”;TIME${1 TO 5};" Uhr";” 

Seite:“;seit_nr 

IF prt=TRuI THEN LPRINT;TAB(r_l);"Programmname: 

";name$;“ ";DATE$;" ";TIME${1 TO 5);" Uhr";" 

Seite:“;se1t_nr 

IF prt=TRUE THEN LPRINTzps_akt=zp»_akt+2 
IF wähl*10 THEN PRINT «2,TAB(2);"Erettzen von: 
";auch$;" durch: ersetzt: 2 ps_akt=zpa_akt+l 

IF wähl=10 THEN IF prt=TRUE THEN 
LPRINT;TAB(r_lErsetzen von: ";suchj;" durch: 

";ersetzt:LPRINT 

PRINT #2,“":zps_akt*zpa_akt+3 
IF wähl OS THEN RETURN 
IF seit_nr>1 THEN RETURN 

PRINT «2,TAB(2);"Anzahl Zellen :";zeil_nr 
IF prt=TRUE THEN LPRINT;TAB(r_l);"Anzahl Zellen 
:";zeil_nr 

PRINT #2,TAB(2);"Anzah1 Varlablen:";anz_tab 
IF prt=TRUE THEN LPRINT;TABCr_l );"Anzeh 1 
Variablen:”;anz_tab 

PRINT *2,"":IF prt=TRUE THEN LPRINT;“" 
zps_akt=zpe_akt+3 
RETÜRN - 

LABEL aa1t_end 

eelt_nr=se1t_nr+l 
PRINT *2,CHRt(12); 

IF prt*TRUE THEN LPRINT,CHRt(12 ) ; 

GOSUB aalt_enf 
RETURN 
LABEL inlt 

WINDOW #2 FULL 
CLS #2 

WINDOW *2 OPEN 

FOR 1=1 TO tab_d1m:vart(1zei_nrt(1NEXT 
anz_dat*I:anz_tab= 0 :zei 1 _n r=l:zeit = "" 

1*1:zei1e$="" 

RETURN 
LABEL fahler 
CLOSE #5 
ON ERROR GOTO 0 
RESUME 
DAT A 18 

DATA - Ausgabe auf Drucker = 

DATA - Listlng drucken 

DATA - REM-Taxte drucken 

OATA - Zellen einzeln drucken 

DATA - Cross-Referenzltäte drucken 

DATA - Suchen nach Variab 1 en/Befehlen 

DATA - Suchen nach Sprungzlelen (LABEL) 

DATA - Leerstellen aus Programm entfernen 
OATA - REM - Texte aus Programm entfernen 
DATA - Ersetzen von Vsr1 ab 1 an/Be fehlen 
DATA - Programm anfügen (MERGE) 

DATA - Programm kopieren (COPY) 

DATA - Programm umbenennen (RENAME) 

OATA - Programm löschen (KILL) 

DATA - Programm laden (LOAD) 

DATA - Unterprogramm getrennt speichern 
DATA - Cross-Liste von Tei1-Programm 
OATA - Ende 

DATA I, = ,\) 

LABEL aus_prt 

IF prt=TRUE THEN prt=FALSE ELSE prt=TRUE 
men_nr=men_ni —1 
GOTO hauptmen 
LABEL remprint 

such1$="REM":such2*=. 

GOSUB inlt 
GOTO llatIng 
LABEL such 

i5 = INSTR(1,zell et,suchlt) 

IF 15=0 THEN i5=INSTR(l.zeile$,such2t) 

IF 15>0 THEN GOSUB SUCh_cros 

IF bef$="REM" THEN 15=spa-3 ELSE IF bef$=. 

THEN 15=spa 

IF wähl = 3 THEN IF i5 >0 AND(bef$="REM" OR 

bef$=.>THEN zei1et=ze11 et{15 TO}ELSE zeile$="" 

IF wähl=7 AND bef$<>"LABEL" THEN ze11e$="" 

IF wähl<>9 THEN beft="" 

RETURN 

LABEL zei1 druck 

ml n$="Tei111»t1ng ausgeben...“ 

GOSUB Zellenabfrage 
IF e__e S =" " THEN GOTO zelldruck 
GOTO 1isting 
LABEL zeil_wahl 

IF zeil_nr<zeil_a THEN zeilet*'"' 

IF zeil_nr>ze1l_e THEN zeilet*“" 

RETURN 

LABEL such_txt 
GOSUB such_e1n 
auch 2 $="”:araatz$="" 

GOTO cros 
LABEL l_pr1 nt 

such1$="LABEL":such2$="LABEL" 

GOTO listlng 
LABEL 1 ee r__weg 

but=ALERT 3 TEXT "Leerstellen wirklich 
aus",menüt(0),"entfernen?" BUTTON RETURN 
"JA","NEIN” 

IF butoi THEN GOTO hauptmen 

PRINT S2,AT(2;2); M Leerstellen werden entfernt, 
OPEN #6 OUTPUT arb_filet 
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GOTO cros 
LABEL leerweg 
1eer=spa 

WHILE 1eer<LEN(zei1e*)ANO zei1e*{1eer+1}=" 
":le#r=leer+l:WEND 

IF zeile*{leer+l}="#” ANO leer>spa THEN 

teer«)«er-1 

IF taarospa THEN ze 11 e$=!eU e$ { TO 
spa}+ze11e*{1eer+1 TO} 

IF 1eer=<1 OR epa<=2 THEN GOTO we1ter2 ELSE 
1eer=apa 

WHILE 1eer>2 ANO ze11e${1eer-1}=” ":1eer=1eer- 
1:WEND 

IF zei 1 e*{spa} = "*'' AND leeropa THEN leer=leer+l 
IF spa < >1aer THEN zeite* = ze11e${TO leer- 
1}+za11 e*{spa TO) 
apa= 1 eer 
LABEL we1ter2 
RETURN 
LABEL 
1 = 1 

but*ALERT 3 TEXT "REM-Texe wirklich 
aus",menü$(0>,'entfernen?" BUTTON RETURN 
"JA","NEIN“ 

IF butOl THEN GOTO hauptmen 

PRINT *2,AT(2;2);"REM-Texte werden entfernt, 

zeit_nr=0:suchl*=''REM":such2$=. 

OPEN #5 OUTPUT arb_f11e$ 

OPEN «6 INPUT e1n_name$ 

WHILE NOT EOF( # 6 ) 
ze 11 _nr=ze 11 nr +1 
LINE INPUT *6,ze11e* 

GOSUB such 

IF 15=1 THEN 2 e 1 1e$="" 

IF <5>1 ANO(bef$="REM" OR bef$=.)THEN 

zei1e$=ze11e*{TO 15-1}:m1n*=STRING*(15-1,“ “) 

IF zai1e$=m1n$ THEN ze11e$="":min*=““ 

IF ze11e$>"" THEN PRINT #5,Zelle* 

PRINT #2 zell nr;" “;ze11e$:bef$="" 

WENO 

CLOSE #5.*6 
GOSUB n#w_nam 
men_nr=4 
GOTO hauptmen 
LABEL ersetz_txt 
LABEL such_e1n 

PRINT *2,AT(2;2);"Alle Eingaben müssen genau wie 
im BASIC erfolgen, daß heißt:" 

PRINT *2,AT(2;4);"BEFEHLE GROSS, variablen klein 
elngaben! Trennzeichen sind nicht erlaubt." 

PRINT *2,AT(2;18>;"(Abbruch mit Leereingabe 
möglich!)“ 

e_x=2:e_y=6:#_text*="A1te r Ausdruck: 

":e_typ=5:e_max_lang=40 
GOSUB elngabe 

IF e_e$="" THEN GOTO hauptman ELSE such$=e__e$ 

IF wahl=10 THEN a_x=2:e_y=0:e_taxt$="Neuer 
Ausdruck: ":e_typ=5:e_max_lang=40 
IF wähl=10 THEN GOSUB elngabe 

IF wähl=10 THEN IF e_e*="" THEN GOTO hauptmen 
ELSE ersatz*=e_e* 

but=AL£RT 3 TEXT "Zu welcher Art gehört","der 
Ausdruck:".such* BUTTON RETURN "BEFEHL","STRING¬ 
VARIABLE" ,"NUMERISCHE-VARIABLE" 

IF but=I THEN 

ersatz*=UPPER*(ersatz$):such*=UPPER*(such*):but=0 
IF but>1 THEN 

ersatz*=LOWER*(ersatz*):such*=LOWER*(such* ) 

IF but=2 THEN 

ers»tZ*=ar3atz*+"$":such*=aucht+"*" 

IF but>1 THEN but=ALERT 3 TEXT "Handelt es sich 
um"."eine Feldvar1able?" BUTTON RETURN 
"JA”,"NEIN","NEUEINGABE" 

IF but=3 THEN CLS #2:GOTO such_e1n 
suchl*=such*:such 2 *=ersatz* 

IF but=l THEN 

ersatz$=ersatz$+"()“:such*=such$+"()" 

IF wähl<>10 THEN RETURN 
OPEN #6 OUTPUT arb_f11e* 

GOTO cros 
LABEL ersetz 
CLS #2 
REPEAT 

ze 1 *=zeile*(spa-l} 

IF zei*=" " THEN spa=spa-l 
UNTIL zelJO" " 

IF spa-l-LEN(suchl*)>=I THEN PRINT *2 ze11_nr;" 
";ze11e*{TO spa-LEN(suchl*)-l); 

PRINT #2 COLOR(12);EFFECTS{64);such 1$ ; 

PRINT #2 zei1e*{spa TO) 

but=ALERT 3 TEXT "Alton Ausdruck" ,''ersetzen?" 
BUTTON RETURN "JA","NEIN" 

IF butOl THEN wort*»" " :RETURN 
IF spa-1-LEN(sucht!}> = 1 THEN zelle*=zei1e${TO 
spa-L£N(suchl*)-l}+such2$+ze1le*{spa TO) 

IF apa-l-LEN(suchl*)<1 THEN 
zeile*=such2*+ze1le*£spe TO} 

spa=Spa-LEN(suchl*)4LEN(such2*>:IF spa<l THEN 
spa=l 

ze11_len=ze11_len-LEN(suchl*)+LEN(such2*) 

RETURN 

LABEL mer_go 

WINDOW #2 CLOSE:CLS *1 

PRINT #1,AT(3;2);"bitte warten ... 

PRINT #1,AT(3;5);"Wählen Sie Jetzt das 
Prog ramm,“ 

PRINT #1,AT{3;7);"welches an " 

PRINT Hl,AT(3;9);menU$(0) 

PRINT #1 ,AT(3; II) j "angehängt werden soll." 
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nemel*=e1n_name*:menü_alt$=menü*( 0 ):steuer*="mer_gel" 
suchl*=neme_pfad*:such 2 *=nam_dat$:13=nam_lw 
GOSUB Iw 
LABEL mer_gel 
steuer*="" 

menüt(0)=menü_alt*:men_nr=4 

but=ALERT 3 TEXT nemel*."MERGE",e1n_name$ BUTTON 
RETURN "JA","NEIN" 

IF butOl THEN 

ein_nsme*=nemel*:menü*( 0 )=menü_a 1 t$:ateuer*="":name_ 
pfad*=suchl*:nam_datJ=such2$:nam_lw=i3:suchl*="":s 
uch2*="“:GOTO hauptmen 

CLS *1:PRINT #1 AT(3;2);namel* 

PRINT #1 AT(3;4);"MERGE " 

PRINT *1 AT(3;6);ein_name* 

PRINT *1 AT(3;fl);"...bitte warten." 

SWAP namel*,e1n_name$ 

GOSUB arb_f11e 

OPEN *5 APPENO arb_f11e$ 

OPEN *6 INPUT namel* 

WHILE NOT EOF(#6) 

LINE INPUT #6,zeile* 

PRINT US,zelle* 

WENO 

CLOSE »5,*6 
GOSUB new_nam 

ein_namet=namel*:menü*(0)=menü_alt*:steuer*='"':n 
ame_pfad*=suchl*:nam_dat*=such 2 *:nam_lw= 1 3:suchl*= 

"":such 2 *="" 

GOTO hauptmen 
LABEL kople 

anz_dat=l:ze 11 _nr =0 

GOSUB datnam_ein 

name*=FIND*(ein*,anz_dat) 

IF name$< >"" AND «nz_dit<>0 THEN but=ALERT 3 
TEXT "Dateiname",ein*,"bereits vorhanden","... 
überspielen?" BUTTON RETURN 

“JA“,"NEIN","ABBRUCH":IF but=2 THEN CLS *2:GOTO 
kople ELSE IF but=3 THEN GOTO hauptmen 
OPEN «5 INPUT namel* 

OPEN #6 OUTPUT name2* 

WHILE NOT EOF(»5) 

LINE INPUT #5,ZBlle* 

zei1_nr=ze 1 l_nr+l 

IF wähl =16 THEN GOSUB zeH_wahl 

IF zei1e* < >"" THEN PRINT *6,zelle* 

WENO 

CLOSE *5,*6 
namel*»''":men_nr=4 
GOTO hauptmen 
LABEL re_name 

GOSUB datnam_e1n 
rc=NAME namel* AS name2t 
IF rc=135 THEN but=ALERT 3 TEXT 
"Date 1name",ein*,"berel15 vorhanden" BUTTON RETURN 
"OK":IF but=l THEN CLS #2:GOTO re_name 
menü*( 0 )=name 2 *:ein_name$=name 2 $ 

GOTO hauptmen 
LABEL lösche 
1=1 

but=ALERT 3 TEXT "Soll das 
Programm",menü*(0),"wirklich gelöscht werden?" 

BUTTON RETURN “JA","NEIN" 

IF butOl THEN GOTO hauptmen 
KILL e1n_name* 

GOTO datel 
LABEL lade 

but=ALERT 3 TEXT "Diese Option steht unter 
BASIC-2"," nicht zur Verfügung!" BUTTON RETURN 
"welter" 

GOTO hauptmen 
LABEL teil_save 

min*="Untarprogramm speichern. . . " 

GOSUB Zellenabfrage 
IF e_e$="" THEN GOTO teil_aave 
GOTO kople 
LABEL teil_cross 

mln*="Cross-L1ste von Tei1 Programm." 

GOSUB zeilenabfraga 

IF e_e$="" THEN GOTO teü.cross 

GOTO cros 

LABEL zeilenabfrage 

PRINT «2,AT(2;2);min* 

PRINT *2,AT(2;18)(Abbruch mit Leereingabe 
möglIch.)" 

e_x=2:e_y=4:e_text*="von Zeile: 

" : e_typ=4 : e_max_l ang = 6 
GOSUB elngabe 

IF e_e*="■' THEN GOTO hauptmen ELSE 
zeil_a=VAL(e_e$> 

e_x=2:e_y=6:e_text*="b1s Zelle: 

":e_typ=4:e_max_lang=6 
GOSUB elngabe 

IF e_e*='"' THEN CLS *2 ;RETURN 
zeil_e=VAL(e_e$):RETURN 
LABEL datnam_ein 

IF wahl=13 THEN min*="umbenannt" ELSE IF wahl=12 
THEN mln*="kopiert" 

IF wähl=16 THEN m1n*="teilwelse gespeichert" 

PRINT *2,AT(2;2);"Das Programm 
“iCOLOR(12);EFFECTS{64);menü*(0) 

PRINT *2,AT(2;4);”sol1 ";m1n*;" werden!" 

PRINT #2,AT(2;18);"Abbruch mit Leereingabe 
möglich!" 

e_x=2:e_y=6:e_text*=“Neuer Dateiname: 

":e_typ=2:e_max_lang =12 
GOSUB elngabe 

IF e_e*="" THEN GOTO hauptmen ELSE ein*=e_e* 

IF INSTR(ein*,".")=0 THEN e1n*=e1n*+".BAS" 
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i5=INSTR(ein$,“.">: e l r>$=UPPER$ (e i n$) 

IF 15 < 9 TUEN ein$=e1n${T0 i5-1}«-STRING*(9-i5 
)+e1n${15 TO) 

eln$=arb_file$(TO LEN(arb_fi le$)-12)+ein$ 

IF wahl=13 THEN m1n$="Umbenennen “ ELSE IF 
wähl—12 THEN mln$="Kopieren" 

IF wahl=l6 THEN mln$="siehern von 
Zeile"«STR*(zBil_a)+" bis Zei1e"+STR$(zeil_e) 
but=ALERT 3 TEXT menü$(0),min$," als",ein$ 
3UTTON RETURN "JA"."NEIN" 

IF butOl THEN GOTO hauptmen 
namel$=e1n_name$:name2$=ein$ 

PRINT »2,AT(2;18);min$;“ ",namel$;" als 
;name 2 *;" ...bitte warten." 

RETURN 

LASEL arb_fIle 

OPEN *5 OUTPUT arb_file$ 

OPEN #6 INPUT ein_name$ 

WHILE NOT EOF(#6) 

LINE INPUT #6,zeile$ 

PRINT #5,zel1e$ 

WENO 

CLOSE #5.»6 
RETURN 

LABEL new_nam 

CLOSE #5:CLOSE #6:15=1NSTR(ein_name$, ") 

namel$=ei rt_name$ 

name2$=e1n_name${TO i5)+“BAK":anz_Oat=l 
name$=FIND$<name2$,anz_dat) 

IF NOT name$="“ ANO anz_dat=I THEN KILL name 2 $ 
NAME namel$ AS name2t 
NAME »rb_file$ AS namelj 
RETURN 

LABEL elngaba 
WINDOW #2 OPEN 
WINDOW S2 CURSOR ON 
e_e$="" 

PRINT #2,AT{o_x;e_y);e_te«tj; 

REPEAT 

REPEAT:e_eode=INKEY:UNTIL e_code< >-l 
IF e_code<31 OR s_code>255 GOTO e_so_tast 
ON s_typ GOTO 

»_J_n.e_detnsm.e_al las,e_integer,a_befvar 
LABEL e_J_n 

IF #_code=74 OR e_code=106 OR e_code=78 OR 
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e_code=110 THEN GOTO e_ok ELSE GOTO e_falsch 
LABEL e_datnam 

IF NOT{(e_code>=65 ANO e_code<=90)OR(e_code>=97 
AND s_codef=l22)OR(e_code>=48 AND e_eode<=57)OR 
s_cod*=95 OR e_code=46)THEN GOTO e_falsch 

IF s_COde=46 AND INSTR(e_e$>0 THEN GOTO 
e_falsch 

IF e_code=4S AND LEN(e_e$)>8 THEN GOTO e_falsch 
IF(INSTR(b_b$. n .")=0 ANO LEN(e_e$)>=8 ANO 
e_coda0 46)THEN GOTO «_falsch 

IF INSTR(e_e$>0 THEN IF LEN(e_e$)- 
INSTR(e_#$,".“)> = 3 THEN GOTO e_falsch 
GOTO e_ok 
LABEL e_alles 

IF e_code=44 THEN GOTO e_falsch ELSE IF 
e_eodB>=32 ANO a_COde<259 THEN GOTO e ok ELSE GOTO 
e_falseh 

LABEL e_1nteger 

IF(e_code>=48 AND B_code<=57)THEN GOTO e ok ELSE 
GOTO e_falsch 
LABEL e_falsch 

PRINT CHR${7);:GOTO e_we1tar 
LABEL e_befvar 

IF e_coda=129 OR e_code=132 OR a code=148 THEN 
GOTO e_ok 

IF e_code=142 OR e_coda=153 OR e code=154 THEN 
GOTO e_ok 

IF NOT((e_code>=65 ANO e_cOde<=90)0R(e_code>=97 
AND »_code<=I22)OR(B_codB>=48 ANO e_coda<=57)0R 
e_code=95)THEN GOTO e_falsch ELSE GOTO e ok 
STOP 

LABEL e_so_tast 
IF e_coda=13 GOTO e_we1ter 

IF LEN(e_e$)>0 AND(e_code=8 OR e_cOde=331)THEN 
»_ e *=e_e*{T0-2}:PRINT #2.CHR$(127);:GOTO e weiter 
ELSE GOTO e_falsch 
LABEL e_Ok 

IF LEN(o_B*)=B_max_lang GOTO e_falsch 
s_zei$=CHR$(#_code) 

PRINT *2 e_zei$; 
e_e$=e_a$+B_zei$ 

LABEL e_we1ter 
UNTIL e_code=13 
WINDOW #2 CURSOR OFF 
RETURN 
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GEM- Anwenderhandbuch 

Schneider PC 

Markt & Technik Verlag, 1987 

433 Seiten 

ISBN 3-89090-460-2 

Preis: 49,- DM 

Das sauber aufgemachte, mit 
vielen Zeichnungen, Diagram¬ 
men und Bildschirmhardcopies 
versehene Buch beschreibt um¬ 
fassend und ausführlich den 
Umgang mit der GEM-Benutzer- 
oberfläche und den wichtigsten 
GEM-Appl ikationen. 

Es eignet sich sowohl als 
Arbeits- sowie auch als Nach- 
schlagebuch. Im Vorwort wird 
darauf hingewiesen, daß als 
Computer der Schneider PC 
eingesetzt wird, jedoch ist die¬ 
ses Werk für alle IBM-Kompa- 
tiblen, die mit GEM betrieben 
werden, von Nutzen. 

Der Leser erfährt zuerst etwas 
über die verschiedenen GEM- 
Applikationen und deren Ein¬ 
satzgebiete. Anschließend wird 
die Bedienung der GEM-Ober- 
fläehe von Programmen be¬ 
leuchtet. Nachfolgend wird jede 
GEM-Applikation äußerst prä¬ 
zise von der Installation über die 
Handhabung bis in die kleinsten 
Feinheiten beschrieben. 

Ein eigenes Kapitel beansprucht 
das GEM-Ausgabeprogramm 
für sich. Es erledigt alle Ausga¬ 
ben auf Peripheriegeräte, z.B. 
einen Drucker oder Plotter. Äu¬ 
ßerst hilfreich ist die Auflistung 
der Tastenbefehle von GEM- 
Desktop, -Write und Word- 
chart. Den Abschluß bildet ein 
ausführliches Stichwortver¬ 
zeichnis. Erwähnenswert sind 
auch die vier Farbseiten, die 
eindrucksvoll die Möglichkei¬ 
ten von GEM-Graph, -Word- 
chart, -Paint und -Draw zeigen. 
Fazit: Ein rundum gelungenes 
Buch, das jedem GEM-Anwen¬ 
der ohne Vorbehalte empfohlen 
werden kann. (J. Rauscher) 


Bove/Rhodes/Thomas 
Die Kunst des Desktop- 
Publishing 

Addison-Wesley Verlag 
(Deutschland) 

312 Seiten 
ISBN 3-925118-68-3 


TONI Ecvppw. frOZlz 


OIE KUNST DES 
DESKTOP- 
PUBLISHING 


I 



Desktop-Publishing: Ein Wort, 
das zur Zeit innerhalb der Com¬ 
puterszene und dem Pressewe¬ 
sen in aller Munde ist, repräsen¬ 
tiert sich auch auf dem Bücher¬ 
markt mit immer neuen Erschei¬ 
nungen zu diesem Thema. Zu 
jener Sparte gehört auch dieses 
Buch, das sich allerdings nicht 
direkt mit Desktop-Program- 
men auseinandersetzt, sondern 
vielmehr den Aufbau dieser in¬ 
dividuellen Zeitungsgestaltung, 
sowie den Umgang mit der Ma¬ 
terie in den Vordergrund stellt. 
Dazu gehören u.a. ein Über¬ 
blick über die benötigten Gerä¬ 
te, ein Kapitel beschäftigt sich 
mit den Themen, die für das Ar¬ 
beiten mit Desktop-Publishing 
unerläßlich sind, wie Textver- 
arbeitung, das Scannen von 
Texten und etliches mehr, die 
Unterschiede von Druckern 
werden herausgestellt, und auch 
das Unlerbringen von Grafik im 
Text fehlt nicht. Zuletzt werden 
noch Rechner gezeigt und be¬ 
schrieben, die auf diese neue 
Herstellungstechnik zuge¬ 
schnitten sind. Auch Hinweise 
über die benötigte Software feh¬ 
len nicht, zugleich werden prak¬ 
tische Beispiele zu deren Bedie¬ 
nung mitgeliefert. Am Schluß 
des Buches befindet sich sogar 
ein kleines integriertes Wörter¬ 
buch, das die wichtigsten Fach¬ 
begriffe aus Zeitungswesen und 
elektronischer Datenverarbei¬ 
tung in Verbindung mit Desktop 
Publishing erläutert und somit 
auch Neulingen verständlich 
macht. 

Alles in allem ist dieses Buch 
hervorragend geeignet, denjeni¬ 
gen Computerbesitzer, der sich 


mit dieser neuen Technik aus¬ 
einandersetzen will (sei es be¬ 
ruflich oder privat), jedoch kein 
großes Wissen über Computer 
an sich besitzt, an das Thema 
Desktop Publishing heranzu¬ 
führen, ohne ihn jedoch gleich 
mit der Technik zu erschlagen. 
Selbst Interessierte, die keinen 
Computer besitzen, können mit 
den Themen aus diesem Buch 
schon eine ganze Menge anfan¬ 
gen. Somit kann man dieses 
Buch eigentlich nur empfehlen. 

(JB) 


Olaf Hartwig 
Experimente zur künst¬ 
lichen Intelligenz 
in BASIC 

auf CPC 464/664/6128 
Markt & Technik Verlag AG 
Preis: 49, - DM 



Das vorliegende Buch von Olaf 
Hartwig ist in zwölf Kapitel un¬ 
terteilt; der Schwerpunkt liegt 
auf praxisbezogenem Lernen 
zum Experimentieren mit 
künstlicher Intelligenz (KI). 
Einleitend wird der Begriff der 
KI erklärt; der Stellenwert die¬ 
ses Themas in der heutigen In¬ 
formationstechnik wird erläu¬ 
tert. Das Problem des Dialogs 
Mensch-Maschine wird an dem 
Beispielprogramm DOC deut¬ 
lich: die unterste Stufe der KI. 
Eine Frage an den Computer er¬ 
zeugt immer dieselbe, einsilbi¬ 
ge Antwort, ohne daß die Ma¬ 
schine begreift, was gefragt 
wird. Trotzdem ist ein Dialog 
möglich, Verständnis wird si¬ 
muliert. Im weiteren Verlauf 
des Kapitels werden Program¬ 
me entworfen, wie z.B. ein 
lernfähiges PARSING-Pro- 
gramm, oder das unter Insidern 
bekannte ELIZA-Programm 
mit einem Psychiater-Modul. 
Beide Programme können 
schon »intelligente« Antworten 
ausgeben. Auffallend ist bereits 
in diesem Kapitel, wie umfang¬ 


reich die Listings sind — nicht 
selten müssen mehrere Buchsei¬ 
ten abgetippt werden. Positiv zu 
erwähnen ist die wirklich pra¬ 
xisnahe Erklärungsweise und 
die ständige Aufforderung des 
Autors an den Leser, selbst Pro¬ 
grammänderungen vorzuneh¬ 
men und zu experimentieren. 
Gelungen ist auch der systema¬ 
tische Aufbau der Beispielpro¬ 
gramme, die stark an Pascal er¬ 
innern (DeklarationsteU, An¬ 
weisungsteil, etc.). Die Compu¬ 
terkreativität wird anhand der 
Erstellung eines Gedichtes de¬ 
monstriert, im weiteren Verlauf 
sogar mit korrekter Syntax. Im 
Kapitel KI und Robotics wird es 
dann ernst. Der alljährlich statt¬ 
findende Micro-Mouse-Maze- 
Contest zeigt den naturwissen¬ 
schaftlich-technischen Hinter¬ 
grund der KI-Forschung deut¬ 
lich auf. Anhand verschiedener 
Algorithmen, der leistungslä- 
higste ist hier der Pledge-Algo- 
rithmus, wird gezeigt, wie eine 
vom Computer simulierte Maus 
durch ein Labyrinth mit Hinder¬ 
nissen an ein vorgegebenes Ziel 
eilt. Ein spielerischer Vorgang, 
der für die Sensor- und Steue¬ 
rungstechnik von Bedeutung ist, 
so z.B. bei den Robotics (Indu¬ 
strierobotern, die wir aus den 
USA, Japan und der hiesigen 
Autoindustrie kennen). 

Kapitel fünf werden Experten¬ 
systeme erörtert und ein vom 
Autor entworfenes Expert-Sy¬ 
stem aufgelistet. Der Leser 
kann hier ein eigenes Wissens¬ 
gebiet integrieren und erhält so¬ 
mit eine eigene Datenbank. Mit 
dem Kapitel über Wissensreprä¬ 
sentation auf dem CPC schließt 
der kreative Teil des Buches für 
den Leser. Sogenannte Que- 
stion-answering-Programme 
werden in diesem Kapitel er¬ 
klärt und erzeugt. 

Der restliche Teil des Buches 
gibt unter anderem einen chro¬ 
nologischen Überblick über die 
Entwicklung der KI bis in die 
Gegenwart an, Zukunfts¬ 
perspektiven werden aufge¬ 
zeigt. Ein Verzeichnis über KI- 
Programme für den CPC mit 
kurzer Erläuterung, ein Glossar 
der wichtigsten Termini der KI 
sowie deutsch- und englisch¬ 
sprachige Literatur bilden einen 
informativen Abschluß dieses 
Buches. Abschließend kann ge¬ 
sagt werden, daß es sich um ein 
gelungenes, sehr praxisnahes 
Werk über KI handelt, ersetz¬ 
bar allerdings nur vom fortge¬ 
schrittenen CPC-Anwender. 
Für den Anfänger ist das Buch 
nicht zu empfehlen, da die vor¬ 
geschlagenen Experimente ein 
gewisses Basiswissen in BASIC 
voraussetzen. 

(H. Wollenberg) 


126 PC 1*88 



























Kleinanzeigen—i 


Biete Software 


Arztpraxis-Programm aut Joyce 

-'ivatliqu., Datenverw., Formulardruck, 
■Ttbrief, Leistungstat. Kompl. DM 990,— 
-iSAMED, A.d. Oelsfeld, 5300 Bonn 2, 

2 28) 34 87 98 (ab 19h) G 


iciware für den Schneider PC 
: ‘ Matheprogramme (Über 200 K) 

’t vveise Grafik / Nur 50,- DM 
: _ .e kostenloses Info anfordern 
• Schäfer / PF 7222 / 48 Bielefeld 1 


:jellenkalkulation für Joyce sehr schnell. 

Bildschirmaufbau in ca. 1 Sek. 
Berechnet 100 Formeln in ca. 6 Sek. 

Uber 60 KByte verarbeitbar. 

Preis: 60,- Bestellung per Scheck 
od. zus. Infos bei: 

Peter Weigel, Veit-Adam-Str. 16, 

8050 Freising 


■ PUBLIC DOMAIN CPC & Joyce ■ 
• info 2x0,80 DM, CAT-Disc DM 12,- • 
' PDI, PF 1118,6464 Linsengericht * G 


Gratisinfo für alle CPC-Versionen, 
fordern bei Friedrich Neuper, 8473 
: ~eimd, Postfach 72 G 


: M/Schneider PC + Kompatible 
' ee Disk ab DM 3,- Info gratis 
1 Karbach - Remscheider Sfr 18 
: c-50 Solingen 1 - Tel.: 02 12/4 31 40 


§§ JUROP §§§ 

Sie haben einen Computer 
Wir geben Ihnen das Recht dazu 
Musterverträge, Mahnschreiben, 
Reklamationen, Kündigungen, Kauf 
Verjährung usw. auf Disk 
für PC u. Joyce. Info gg R port. 

-ROP, Marienstr 8,8510 Fürth G 


^W: Business-Star für 260 DM 
’e 0 83 33/81 01 (neuwertig) 


SPALTEN 10 

:-'0Spalten -max 80Zeichen/2000 Felder 
=:nnen (+/-) -Suchen- Sort- Drucken- 
: "achste Bedienung- C/D 33,- / 38,- DM 
;•*** SCHALTBILD - Cad 1 ***** 
"altbilder mit dem CPC alle gängigen 
: i-teile in Bauteilebibliothek mit Hardcopy 
E-’SON u. kompat (NLQ/DMP) - Test 
: ~9ft 5/87 S.58 C/D 43,- / 48,- DM 

. BANK 111 ***** 

-: 3ankkontenführung, Haushalts-, Kassen- 
:.:i kl. Gewinnrechnung m SUCHEN 
-Sort- Druck- schnellste Eingabe- C/D 
SS - / 38,- DM 

;*** ÜBERWEISUNG 111 ***** 

^Überweisungen aus einer einmal 
: "segebenen Datei auf Endlosvordrucken, 
::"iell, bequem, einfach- C/D 33,- / 38,- 

. VOKABELTRAINER ***** 

3.:—.eile, einf Eingabe- max. 2000 Vok.- 
=j:-i franz Zeich. - C/D 23,- / 28 - DM 
: e se bei Vorkasse od. +NNGeb - Software 
2 niesen, Rathausstr 70, 5410 Höhr-Grhsn. 


T 0 26 24/33 77 ab 18 00 Uhr 

G 

Schneider CPC 464 zu verk 
j : dBase II 

90,- DM 

Multiplan 

90,- DM 

yz Textomat 

45,- DM 

r: Statistik-Star 

45,- DM 

Disketten 3' 1 Stck 

5- DM 

- r :p 0 52 51/4 96 67 



* JOYCE - SOFTWARE 
FiBu einfach + E - Ü + UST 198,— 
FiBu doppelt + Bi + Guv + UST 298,- 
Multiplan, Wordstar 3.0 je 179,— 

DR Draw, DR Graph je 179,- 

T - Pascal, T - Toolbox je 198,— 
DATA-SERVICE S. Wessler, Klunsberg. 5 
3493 Nieheim 0 52 74 - 82 16 G 


CPC-Schneider Flugtraining für 
CPC 464,664,6128. Umfassende 
Bewertung der Flüge. 

A) Hubschrauber-Simulator in 
Aktion. 9 Anzeigen im Cockpit. 

3 Flugprogr zur Wahl 29 DM 

B) Space Shuttle-Landung 

Echtzeitsimulation, nach NASA- 
Unterlagen. 29 DM 

C) Boeing-727 Simulator, Dies 
Programm ist zur Anfänger- und 
Instrumenten-Flugschulung geeignet 

Mit Anleitung 34 DM 

Ab 2 Program jedes minus 5 DM 

Auf Disk plus 7 DM Info gegen 

Rückporto Fluging. F. Jahnke 

Am 3erge 1, 3344 Flöthe 1 

Tel: 0 53 41/9 16 18 G 


Public Domain f, MS-DOS 
Liste gegen Tel 0 91 51/7 02 22 
von F Steinkohl, Hopfau 1, 

8562 Hersbruck G 


Dictonary Engl.-Deutsch 5,25" + Assem¬ 
bler Lern 60,-, Tel.: 0 42 08/14 04 


FREE—SOFT—WARE—FÜR—SCHNEIDER 
—PC—IBM—PRO—DISK—2,20—DM— 
INFO-J -KAROLCZAK-DORFSTR-43- 
2061-STUBBEN 


PARA 3.0 von Vortex zu verk. incl. 

2 Back-Ups, NP: 198,- DM, VK: 130,- 
DM, 3 Mon alt, Tel.: 0 71 91/5 76 40 


* WÄRMEBEDARF DIN 4701/83 

mit kompl. k-Wert Berech. 
Baustoffdatei n. DIN 4108 

* mit ausf. Handbuch, für: 


PC/MS-DOS 498,- 

* PCW/CPC 298,- 

C 128 298,- 

Hinderer techn. Software 

* Hohenzollernstr. 9, 0 71 27 

* 7447 Aichtal 1, 5414 




■ Astrologie mit Computer ■ 

■ International geschätzte Astro- ■ 

■ logenprogramme, professionelle ■ 

■ Deutungsprogramme, Lernprogramme ■ 

■ für Anfänger. Handschriftenanalyse, ■ 

■ Bio-Rhythmus, Astro-I-Ging. ■ 

■ Info gegen DM 2,- in Marken ■ 

■ Aslron, KW Bonert, Peter-Marq -Str.4a ■ 

■ 2000 Hamburg 60 ■ G 


■ ■ Bonzo’s super Meddler ■ ■ 
Das Spitzen-Koplerprogramm 
für Band-Disk Kopien, auch 
Headerlose und Speedlock. 

Jetzt mit über 500 (I) 
Lösungshinweisen. Disk nur DM 45, - 
+ Versand. Ausführl. Into gegen 
Freiumschlag von: Jost Hoffmann, 
Brüsseler Str. 28, 5000 Köln 1 

G 


** Dias ordnen mit Computer 

CPC 464/664/6128, JOYCE und PC 
bis zu 100000 Dias: Suchzeit 
1 Sekunde. Info gegen Rückporto 
bei: Dipl.-Ing. W. Grotkasten, 
Birnenweg 6, 7060 Schorndorf 
Tel.: 0 71 81/4 28 46 G 


JOYCE: Nie mehr auf den Drucker warten! 
Das Programm JOYSPOOL läßt Sie Weiter¬ 
arbeiten, während der Drucker noch läuft. 
Paßt zu allen CP/M-Programmen, wie BASIC, 
dBase, Star-Mail usw., nur DM 89,— CPC + 
JOYCE: Oer Disassembler PRODIZ80 
kann mehr als andere und macht auch vor 
den verbotenen Speicherbänken des 
CP/M-Plus nicht halt DM 39,- Kostenlose 
Info bei R. Keller, Markt 28.5 Köln 91. G 


CPC: Tiefstpreis für Anwendersoftware 
und Spiele. Maxi-Info gegen 0,80 DM 
bei Norbert Rausch, Niehlerstr. 44, 

5 Köln 60 G 


Orig dBase II für CPC 464 Inst. 
110- DM, Tel.; 05 31/32 99 90 


** SENSATION: TREIBWARE VON ** 
A.S.S. WARE 

**’* TREIBWARE FUER WEN?: **** 

Nur für Privatpersonen für 
nicht gewerbliche Nutzung. Nur 
für deutschsprachige Länder 
(BRO, DDR, Lichtenstein, 
Luxemburg, Österreich und Schweiz). 
Wie erhalten Sie TREIBWARE? 

Für 20,- bar + Diskette + 
adressierte (Ihre Adresse) und 
frankierte Diskettentasche. 

*** Was leistet TREIBWARE? *** 
Sofort ohne jegliche Hardware¬ 
änderung 400 bis 430KB netto 
ab MS-DOS 2x und 3x auf jedem kompati¬ 
blen XT-Rechner; z.B.PC 1512; bis 850 KB 
netto auf 80- Track-Laufwerk. Automatische 
Formaterkennung für bis 4 
Laufwerke: inclusive total 
flexiblem FORMATTER und 
TREIBWARE darf nach Über¬ 
sendung von 20,- an A.S.S.- 
WARE an Privatpersonen 
weitergegeben werden. 

Alfred Herrmann 
Schimmelshahn, 5461 Roßbach 
* (C) Copyright Alfred Herrmann * G 


Joyce + CPC Lehrerprogr, Noten- 
u. Punkteverw., Schnittberechnung, 
usw. Notenspiegel, Gewichtung, Schirm 
Druck, einf. Menuebedienung, praxis¬ 
erprobt. Info Freiumschlag (1,30) 

C. Bernhold, Rommelstr. 31 
8783 Hammelburg 


Tape to Disckopierprogramm mit über 400 
Lösungen auch Headerlose. Wird laufend 
ergänzt. Für alle CPC's nur 50,- DM. 
Weitere Infos bei Software Handel Weber, 
Hallerhüttenstr 6,8500 Nürnberg 40, 

Tel : 09 11/49 91 03 G 


*** LOHN-EINKOMMENSTEUER 1987 *** 
vom Fachmann. Berechnet (fast) alles. 

Umfangr. Erläuterungen. Update 1988 
garantiert. Nur für PC 1512/IBM: 70 DM. 

Info: 0,80 DM Dipl. Fin, Wirt U. Olufs, 
Bachstr 70 5216 Niederkassel 2 
Tel: 0 22 08 - 48 15 


*** Handwerker "** 
Universelles Abrechnungsprog 
für PC 1512/1640 mit Festplatte 
ausführliche Infos gegen DM 3,- in 
Briefmarken bei: 

Georg Huonker, Erlenbachhof, 
7463 Rosenfeld-Leidringen 


*’** AKTIEN-DEPOT-VERWALTUNG “** 
Nur Schneider CPC 664/6128 
Kauf/Verkauf/überwachen 
Veränderungsliste/Auswertungsliste 
Bewertungsliste/Gewinn-Verlustliste 
Volatilität, Relative Stärke, TBI 
200-Tage Durchschnitt, 3 versch. Grafiken 
Punkte-Linien-Balkendiagramm 
Wertberechnung Gesamtdepot 
Alle Listen ausdruckbar 
Preis DM 119,- Gratis Info: 

Gerd Schmarsow-Uferstr.26- 
2000 Oststeinbek • Demo-Disk gegen 
DM 10,-. Wird bei Kauf verrechnet. G 


*** dBase Notenverwaltung *** 
Ein Programm, das mehr kann, als 
Noten berechnen! Info (Freiumschlag 
0,80 DM) M. Pruy, Stegerwaldstr.2a, 
8870 Günzburg Tel.: 0 82 21/62 59 
(19-20 Uhr) 


Pascal MT+, CBasic, Originalsoftware, 
je 100,-, Tel.: 0 22 36/6 58 19 


GRAFPAD III für JOYCE 

günstig abzugeben 
Tel.: 0 60 23/72 50 


Software + Joyce u. Joyce/Plus 
SCHREIBLEHRG. 69,- DM 

Lernen Sie Maschine schreiben 
TEST 39 - DM 

Multiple-Choice einfach 
LERNPROGRAMM 1 (M-C) 79, - DM 

freie Eingabe für Lerntext, Frage und Ant¬ 
wort, Auswertung, Ausdruck. Ideal für Me¬ 
diziner LERNPROGRAMM 2 98,- DM 

wie LP 1 zusätzl. Till in“ 
SORTIERPROGRAMM 39,- DM 

sortieren u drucken Listenverw 
SOFTWAREERSTELLUNG zu günstig. Prei¬ 
sen H. Panier, Softw., Dorfstr.13 
2381 Struxdort, Tel : 0 46 23/10 44 G 


Lotto-Vergleich mit System Volisyst. 
7-13 aus 49-Vew-Systeme Zahlen v 2 bis 

1702. Ziehung 3“ Demodisc 20,-, 

Prog Disc 99,- + Nachnahme 
Tel.: 09 41/3 30 48 
Eine Investition die vielleicht 
Ihr Leben verändert 


ETAT-FiBu* spez fürJOYCE*DM 165 

große Leistung: Jahres + Monats-Bilanz, 

G + V-Rechnung, Kontenbl, 
MwSt-Autom., 140 Sachkonten in 
14 Kontengruppen ausf. Beschr. 
Prospekt gg. Rückporto von: 

Dr G Müller-List, Heerstr. 157 

5300 Bonn 1 G 


Lohn- und Einkommensteuer 1987 

Druckerausgabe + Datensicherung 
Ausführliche Anleitung • Info 1,50 
3"-Disk f. CPC 78,- DM + VP 
Versand gegen Vorkasse oder NN 
88er-Aktualisierung 20,- DM 
S. Teurich, Mesternstr. 6 
4952 Porta Westfalica G 
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FiBu I. JOYCE, praxisbewährt!, 
erst nach 1100/6000 Buchungen 
drucken, Superpreis 90,-, Kontoblätter 
28,-/1000, SOFT&TOFT 
Wilhelmstr. 71,44 Münster 


WORDSTAR 3.0m MAILMERGE + FAKTUR1E 
RUNG für JOYCE zusammen DM 150- 
Ernst Berger 5600 Wuppertal 
02 02176 13 75 


Anwender-Programme alle CPC's 
Info gegen Rückumschlag 
Günther Hust, Deichstr. 60 
2876 BerneAlVeserdeich 


Free-Soft für IBM/komp 
4 Kat-Disk = 10,- DM 
über 800 Prg, Disk je 4,50 DM 
Lieferung gegen Vorkasse + 5,- DM 
Porto/Vers. Hewi-Soft Henze 
Brink 87,2822 Schwanewede G 


DISKOMAN: Nichts ist spannender! 

Auf 3“ D jetzt {nach der Einführungsphase) 
20,- DM: HARY, 

Gärtnerstr. 14,6602 Dudweiler. 

Infos gegen Rückporto! G 


FORTRAN-77 mit Disk & Handbuch* 
für CPC/JOYCE 116,67 DM für PC 
1512149,- DM! Softwarahouse 
Kunz - Stapelbrede 60 - 
4800 Bielefeld 1 - Tel.: 05 21787 25 04 G 


CPC 464/6128 Haushaltfinanzen 
Einn./Ausg. planen u. überwachen 
Bankkontenführung, Grafik 40/100 
Konten 49/89 DM Vorkasse 
M. Fuchs, Bangert 45,653 Bingen 


Textverarb. mit CPC6128 + Wordstar 

spielend am Bildschirm lernen! 
Selbsterklärende Übungstexte 

auf 3“ Disketten, dazu 
Strukturtafeln und Hilfsblätter. 
Grundst. und Aufbaust, je DM 18,- 
zus. DM 32,- (Scheck od. NNgeb.) 
Dipl.-Ing. R.A. Müller 
Hofweg 2, 7526 Ubstadt G 


Geld verdienen mit dem PCI 512 
Biorhythmus mit Mondphase 
Lohn- und Eink.-Steuererklärung, PC-Write, 
PC-Chess, Transfile IBM-Sharp-IBM 
Tel.: 089/4 30 09 30 


Für Joyce: □ STEUERMAT □ 

Lohn- und Einkommensteuer: Druck 
direkt auf’s Formular, Analyse, 

Tabelle, Disk 70- DM; Aktu. 20,- DM 
* FORMULARPRINT * 
Formularbearbeitungssystem, Disk 40,- DM 
Info gg. frank. Umschlag: F. Farin, 
Elisabethstr. 65,4460 Nordhorn G 


Original-Software für Joyce 

Wordstar, dBase II, Multiplan 
je 100,- DM, Newsdesk + dt. Zeichensatz 
150,- DM, Trivial Pursuit 50,- DM, 
Tel: 0 53 23/52 40 


* SUPER - LOHN - EINKOMMESTEUER * 
Jahresausgleich '87 Neu m. Datenspeicher 
Kundenverwaltung, Formulardruck, Analyse 
günst. jährl. Aktu! (Demodisk)! 

“ MIET - WOHNGELDBERECHNUNG ** 

Mit allen Kreisen u. Gemeinden d. BRD! 

PC u. HC Prgr f prof. u. priv. Anwendung 
Disk ab 70,- DM. Info gg. RP 
H-l-SOFTWARE, Niederfelderstr.44, 

8072 Manching 0 84 59/16 69 G 


Wg Systemw. JOYCE orig.-Progr: 

Prakt. Textverarb. + Handb DM 40,-, 
DMV JOYCE Sonderheft 1 + Disk. DM 25,-; 
Bücher: JOYCE f. Einsteiger DM 15,-, 

CP/M PLUS Anwender-Handbuch DM 20.— 
CPC/PC-Hefte ab 1/86-12/87 
Stck. 2,-DM Tel : 0 52 71/44 59 


JOYCE orig. Progr. m. Handbuch: 
dBase II DM 90.-. VarDat II DM 90,-, 
Multi-Database DM 30,-, 

Loco Mail DM 50,-, Star-Base DM 90,— 
(vers. 1,37 + Llbhandb.) 
Schneider CPC/PC int. Databoxen 5/86 - 
12/87 pro Stck. DM 10- 
Tel.: 0 52 71/44 59 ab 19.00 Uhr 


M PC-Spiele, Superangebot ■■ 

■■ Gratisliste anfordern bei ■■ 

Fa. Pteilgroßer H, PF 1205,7928 Giengen 1 


DER JOYCE LEBT!! 

Jede Menge Programme für JOYCE i B 
Head over Heels (Action-Adverture) 39,90 
Lrving Daylights (Spiel um J. Bond) 49,90 


Distractions (3 gute Spiele) 59,90 

Cyrus II Chess (3-D Schach) 47,90 

INFQCOM-Adventures je 69,90 

JOYSTICK-Set (inkl. Joystick, Adapter 
u. ACE-Flugsim.) 99,90 

Fleet Street Editor plus 199,00 

Steve Davis Snooker (Billard) 45,90 


Wenn Sie mehr wissen wollen, fordern Sie die 
kostenlose JOYCE-Liste an! SUNSHINE- 
Software, A d Schilde 14, 

5270 Gummersbach, Tel .0 22 61/7 57 52 


CPC-Resteverkauflt! 

Wir räumen unser Lager. Profitieren Sie 
davon! Alle CPC Cassetten DM 8,-, alle 
Disketten DM 18.- zzgl. Versandkosten!! 
Liste nur gegen 0.80 DM Rückporto: 
SUNSHINE-Software, A.d. Schilde 14, 
5270 Gummersbach 


* Wirtschaftliche Programme 

für die Arztpraxis auf 

* dem Schneider CPC, Joyce, PC 
Fa EFFEKTA, Am Wiggert 9c 

* 45 Osnabrück, 0541-44 24 16 G * 


Biete Hardware 


Verkaufe Drucker Schneider Matrix Printer 
NLQ 401 DM 300,- 
M. Völker 0 61 71-727 14 


* Joyce PLUS + Disk + Literatur + Spie 
le + Databox + PC Ini. VB 1900.— 
Chiffre: 071287 


NEU SENSATION NEU 

Tragbarer Fernkopierer mit oder ohne 
Akkumulator für Direktanschluß 
oder Akustikkoppler mit 
kompl. Verkabelung 
und Akustikkoppler. 

Nur 2600 OM + MwSt 
Greger-Luxembourg 0 03 52-48 57 92 


1. ) Joyce PLUS m. sehr viel Software 
Schnittstelle u. Typenraddrucker wenig ge¬ 
nutzt DM 2500,- komplett 

2. ) PC 1512 zwei Lautwerke u. Festplatte 
Vortex 20 MB u. Software DM 2500,— 
Tel.: 0 61 67/16 60 


Joyce PCW 8256 + CPS 8256 + 256 K 
+ 30 Disketten inkl. div. Prag. + 
Literatur kompl VB 1600,- ab 20 h 
Tel.: 02 12/80 0617 


CPC 6128 Farbmon + 23 Disk. Multiplan 
+ EMS alles orig. + div. Spiele + CPC 
Inter. 4/85 - 11/87 

DM900,- 040/2 50 69 45 


CPC 6128 Grün + Vortex: FX1 51/4" + 
DMP 2000 + dBase il + Wordstar + Mul¬ 
tiplan + Tasplus + Star-Text + 40 Disk. 

+ Literatur - Preis VB 1400 DM 
Tel.: 0 65 42/2 29 19 


Kopiere 3“ auf 51/4” MSDOS 360 KB. 

3" Disk 63- OM, 100 Stck = 550,-DM. 
Joyce Modem Programm ohne FTZ ab 
Dez. 87. Info 0,80 DM Porto. 

A. Rieger, Gürzenicher Str. 1, 
EDV-Service 5160 Düren G 


Vortex Doppelstation Ft mit 
Graficmaster + Para 30 + 
Assemblerpaket 850,- DM 
Matrixdrucker CPA-80GS 500, — DM. 
Tel.: 02 21/432864 


Joyce PLUS mit seriell/paralleler 
Schnittstelle und Software. 

DM 1500,- Tel.: 0 61 21/30 19 04 


Verkaufe PC 1512/HO 20 fast neu 
mit orig. Handbuch u. Software + 
640 K Speichererweiterung. 

Tel.: 0 87 74/2 65 (nach 17 Uhr) 


Verk. Vortex FD-1 + VDOS 2.0 für 
1000 DM. Tel.: 02 34/23 35 12 ab 17 Uhr 


PC 1512 CMDD Farbmonitor Software für 
DM 1900 -Tel: 0 22 36/4 45 06 


>•••• 5,25” für Joyce! •••• 
2x80 Tracks. 720 KB formatiert. 
Anschlußfertig im Gehäuse. Unbenutzt. 
Nur 398,- DM. 

Tel.: ab 18 Uhr 041 01/2095 62 


Computerschreibtisch 1 Monat NP 230,— 
VB 180 - Tel.: 02 03/42 48 90 


CPC464 CPC664 CPC6128 User! 

Lichtgriffel mit Programmen 

und dt. Anleitung nur DM 49,- 

Versand gegen Scheck/Nachnahme 

Info gratis! Fa. Schißlbauer 

Postfach 1171S, 8458 Sulzbach 

Tel.: 0 96 61/65 92 bis 21 Uhr G 


Schneider 1512/1640 * 10 MB Fest¬ 
platten 358 DM * Streamer ab 949 DM 
•Tanon 20MB*BTX für CPC=398 
DM‘RS 232 CPC 464=148 DM; 
6128=178 DM‘Neue und gehr. 
464/664/6128/Joyce/Floppy/Drucker * 
CPC Floppy 830 KB 3,5“=479 DM; 
51/4“=499 DM; 360 KB 31/2“=345 
DM; 51/4“ 398 DM ‘ Joyce Floppy 830 
KB 3,5“=349 DM; 51/4“ =449 DM ’ 
Nur Laufwerke: 3“ + 3,5“=175 DM; 
51/4“=245 OM * Vortex Floppy/Er¬ 
weiterungen * 3 x Farbmonitor GT 
644= 565 DM * Akustikkoppler ab 199 
DM * CPC Mouse ab 168 DM ‘ Light- 
pen ab 59 DM ‘ Drucker DMP: 
2000=499 DM; 3160=648 DM; 
4000=985 DM; Microline 182=598 
DM * Ankauf bei Systemwechsel * 
Reparaturservice * 

Manfred Kobusch Bergenkamp 8, 

4756 Unna, 0 23 03/1 33 45 G 


Verkaufe PC 1512 MM/HD 20 
5 Monate alt (noch Garantie) 

VB 2000,- DM 

Tel.: 02 08/48 35 94 (ab 19.00 Uhr) 


Vortex F1-XRS Modul mit 5,25“ Lautwerk 
(708 KB frei) Preis VS 
Tel.: Mi ab 20 Uhr (061 31)68 95 18 


Vortex FD1 + 3“ Disk f. CPC 464 800,- 
oder Fl +3” Disk 500,- 
Vortex SP 256 200,- 0 42 08/14 04 


DK-Tronics Spr. Synthesizer Rom Ver org 
Profi Painter, 160 DM Tel: 0 84 58/20 13 


Vortex MIX + 10 Disks für DM 470,— 
Thomas Müller Tel.: 0 94 43/59 89 


Vortex FI X tür CPC 6128 
(neu) 600,- DM 

Tel.: 0 99 41/37 65 G 


* HALT! 

* Sofort 09 31/5 49 16 

* wählen und unsere neuen 

* Preise hören oder 

* Preisliste anfordern! 

* ComputerLand 

* Ludwigstr 9,87 Würzburg G 


Joyce-PCW 8256 (5124)-Multiplan - DR. 
Graph/Draw - Chess - 750 DM 
Tel.: 0 23 61/1 35 64 n. 18 Uhr 


Festplatte an Schneider PC! 

Einbaukit: 45,60.30 MB-komplett 
Kit 789 DM. Mit ausführlicher 
Anleitung CompOff, Pf. 750935, 

8 München 75, Tel: 089/7 21 15 61 G 


Joyce PLUS (1 Jahr alt) + 
DBase 2 + 11 DD-Disk. DM 1000,-, 
Tel.: 09 11/55 30 75 


CPC 6128/Color + 40 Disk (Textomat, 
Painter, Statistik, Unidatei usw., Spiele) 
Zubehör, Bücher, sonstiges. 

DMP 2000 + Computertisch 
Gesamt-NP 3600,- VP DM 2000 
Tel.: 0 60 53/43 27 nach 18 Uhr 


Schrittmotorinterface für 

alle CPC! Info: P. Wendorff, 

Am Flasdieck 5,42 Oberhausen G 


Joyce 512 KB, Software, Literatur 
20 Disk 750 DM Tel.: 0 22 74/61 41 


Druckerfreaks haben Interesse! 
Verkaufe wegen Umzug meinen 
Drucker Seikosha GP-700CPC 
Preis NV. Tel.: 0 74 32/51 28 
Michael Merz 


COMPUTER ENDLOS DRUCK 

wir liefern z.B. 1000 Blatt 
Endlospapier mit Ihrem Briefkopt 
od Rechnung od. Formular 
fertig bedruckt für SFR 390,- 
Auch Mehrfachsätze od. 
Kleinstauflagen ab 200 möglich. 

AMS, Postfach CH, 4057 Basel, 

Tel.: 061/32 92 66 G 


CPC 464 + Farbmonitor + Drucker + 
Kassetten + Bücher VB, Schneider-Maga¬ 
zine von 4/85-11/87 für Sammler Preis VB 
Tel: 0 70 22/4 83 90 


PCP6128 DMP 2000-8K Fx-1 Amx-Maus 
Turbo Pascal, Wordstar, dBase, 

Multiplan, Fortran 77,20 MB weitere 
Anwendersoftware div. Spiele, 

Literatur nur komplett. 

Ab 18,00 Uhr 0 71 59/24 40 
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Kleinanzeigen—i 


Joyce Plus wen. gebraucht, viel Softw. 
DM 1700.- Tel.: 0 23 32/612 87 


CPC, Grün + DDI-1 + Softw. 

+ Ul. VB 800,- DM 
Tel: 0 21 52/51 01 20 ab 15.00 Uhr 


* ' * SCHNEIDER PC 1512/1640 * * * 

Bcezialzubehör für Schneider PC's: 
*Drive-Card 22 MB formatiert, bootet! 
Ersteckfertig mit Diskmanager=um- 
«rgreiche Festplattenverwaltung u. Install. 


I Disketten, 20 Funkt.698,- 

Dakmanager alleine -.88,- DM 

«■Mty-Scantier .589,- DM 


\etrt endlich Spiele, CAD & Text 
~a Herculeskarte + 2. hochaufl. 
Ucoochrommonitor + Spezialsoftware 
Taadem (schaltet per Taste 
vtoiitore um) 1512er Paket ab: 479,- DM 

T512 EGA Karte, Monitor, Softw... 1298,- 0M 

’Resetknopf, das schädliche Aus- und 
Enschalten entfällt, 

«ompl. mit Einbauanleitung.29,- DM 

^-Tuning: 

“2MB RAM-Karte + Software.299,- DM 

«87 -8MHZ incl. Testsoft.339,- DM 

•NEC V30-8MHZ + Testsoft.29,- DM 

"RAMerweiterung a. 640kB.49,- DM 

Sptefesammlung für den Feierabend: 
Schach, Invasion, Golf, Kriegssimulation. 
Brettspiele usw. = 10 Disketten 69,- DM 
■Professionelle deutsche Programme, 
-dressprofi, Buchhaltung, Vereinsverwal- 


ung, Faktura, Paketpreis...89,- DM 

PC 1640, Preise auf Anfrage!!! 

-eferung per NN. PC TECHNIK, 

Theinstr. 16,5202 Hennef 1, 

J 22 44/38 11 G 


DISKETTEN m Gar. 

■ 5 1/4“, 48 tpi 2 D DM0,84 ■ 

■ 5 1/4“, 96 tpi 2 F DM1,45 ■ 

■ 5 1/4“, HD 1,2-1,6 Mb DM3,35 ■ 

■ 31/2“, 135 tpi 2 DD DM2,50 ■ 

■ 3" Markendisk. 2 CF DM6,19 ■ 

■ Allg Austro-Ag. & Hges., B. Goller, ■ 

■ Schleißheimer Str. 16,8057 Eching ■ 

■ Tel.: 089/3 19 54 56 ■ 

G 


Matrixdrucker KX-P1091 380,- DM 
23 Leerdisk m. Box + 10 CPC Fachb. 
100,- Schn. PC-Intern Heft 3/85— 
12/86 50,- DM, Tel.: 061 55/61895 


FD-2 für JOYCE, VB 3500 Nittmann 
Tel.: 9314 81/3019, oder 10 70 
•Vien Lerchenfelderstr. 1 -3 


Schneider 1512/1640 * Festplatten 20/30 MB * 
Neue und gebrauchte 464/664/6128/Moni- 
tore/Floppy/Drucker * 464 200,- DM* CPC 
Floppy 630 KB 3,5 M = 479,- DM; 51/4“ 

= 499,- DM * Joyce Harddisc 10 MB 
1650 DM; 20 MB 1950 DM * Nur Laufwer¬ 
ke: 3“ + 3,5“ = 175 DM; 51/4“ = 245 
DM * Akustikkoppler 199 DM * AMX Mouse 
249 DM * PC Scanner 848 DM * BTX 369 
DM * RS 232148 DM * Public Domain für 
PC je Disc 10 DM * Multiface I1178 DM * 
Master/Supercopy 69/79 DM * Ankauf bei 
Systemwechsel * Reparaturservice * Man¬ 
fred Kobusch, Bergenkamp 8,475 Unna, 

0 23 03/1 33 45 ab 17 bis 21 Uhr G 


Suche Software 


Suche für CPC 6128 Programm zur Erstellung 
von Spielplänen (Handball/Fußball usw.) bis 
20 Mannschaften (analog TABOMAT tür C64) 


Suche Handwerkersoftware für PC 
Tel.: 02 01/74 51 23 


Suche Programm zum Erstellen von 
Stickmustern für CPC 464 mit dK'tronics 
256 KB und NLQ401 Floppy 
K. Pehle, Pf. 1831,2950 Leer 


Suche Lern-Schulsoftware-JOYCE 
Martin Schmid, Im Zinken 11 
7453 Burladingen 


Hausverwaltung + Kostenverteilung 
+ Einnahme/Ausgabe alle mit Drucker¬ 
ausgabe für CPC 6128. Kempkens, 
H.-Heinestr. 6,5030 Hürth, 

Tel.: 022 33/645 06 


Suche Software für PC 1512. 
Georg Olbertz, Georgstr. 19, 

5 Köln 1. Tel.: 02 21/21 74 31 


Suche Turbo Lader Business und 
Programmentwicklung unter CP/M 
2.2 von M+T, Tel.: 027 72/4 02 85 


Suche Hardware 


Suche Handbuch für Platinenkil 
D Gemüth, Rellinghauserstr 276, 
4300 Essen 1 


Suche Vortex-Sp-erw. + Drucker 
für CPC 464, Tel.: 04 21/67 0234 


Tausch 


Tausche origin. Space Shuttle (Disk) gegen 
CPC intern. 1/86,2/86,7/86,8/86 oder ori¬ 
gin. Zombie (Disk) Tel.:(0 52 42) 4 41 89 
ab 16 Uhr 


Tausche Romsoft. M. Descamps 
Sasboslaan 6,8540 Bellegem Belgien 
Tel.: 056/21 3344 


Verschiedenes 


Wer kann Sharp 51/4-Floppy an JOYCE 
anpassen? Tel.: 0 64 24/22 78 


Verk. Schn.-CPC-lnternational, 
Heft 5/85 bis 12/87 je 2,- zzgl. 
Porto, Tel.:(02305)793 54 


Achtung! 

SCHNEIDER PC 1512 USER-CLUB 
Die Anwendervereinigung für alle Besitzer 
eines PC 1512/1640! 

Wir bieten eine monatliche Zeitschrift, 
Public-Domain und eigene Software, 
Hilfestellung bei allen Problemen 
Fordern Sie unser Info an 
(bitte Rückporto bei.) 
und werden auch Sie Mitglied. 

Anfragen an: 

Rolf Knorre, 

Postfach 200102, 

5600 Wuppertal 2 


Gebrauchtcomputer mit Garantie 

Alles rund um den Schneider, 

Hardware, Software, Literatur 

etc. zu Superpreisen. Katalog anfordem! 

(2 DM in Br.Marken) 

EDV-CLOOTS, 5132 Üb.-Palenberg 
Zeisstr. 7 ständiger Ankauf 

G 


Künstlerische farbige Computergrafik als 
Jahreskalender 1988. Der ’SYN-CODE' 

B 42 x H 55cm, Preis DM 38,- incl. 
MwSt. zzgl. 5,- für Porto + Verp. per NN 
Hubbert, Industriewerbung PF 7, 

3447 Meißner Tel.: 056 57/6 50 


Zeitschrift Schneider Int. von 
3/85 bis 12/87 Kpl 100 DM 


Raum Hamburg Tel.: 040/7 60 57 51 
suche JOYCE (PLUS) Anwender 


*** Druckt Ihr JOYCE blaß?*** 

Auffrischung Ihres Farbbandes 

für 9,- DM (incl. Porto). Kenzelmann P„ 

7964 Kißlegg, Sonnenbühl 26 


JOYCE - PC, JOYCE- ATARI 
CP/M - PC, CP/M - ATARI 
Info; Bernd Drost Schulstr. 67 
6382 Friedrichsdorf 0 61 75/6 04 G 


Clubs 


Wer hat Lust mit mir einen CPC-User-Club 
in Innsbruck für Tirol zu gründen?!? 

Bitte wendet euch an: M. Wenngatz, 

Tel: 52 22/22 28 34 Egger-Lienzstr. 28 
6020 Innsbruck 


HAMBURG 

CPC-USERCLUB sucht Mitglieder aus 
Hamburg u. Umgebung. Bitte melden bei: 
Thomas Kahl. Tel.: 040 / 3 90 58 20 
Eulenstr. 57.2000 Hamburg 50 


Suche Kontakt zu JOYCE-Usern die 
mathematische und technische (Elektronik) 
Programme erstellen, zwecks Erfahrungs¬ 
und Programm-Austausch. Karl-Heinz Reiß 
Masurenring 11, 2300 Kiel 14 


LUXEMBURGER 

’** SCHNEIDER MASTER-CLUB *“* 
sucht weiter Mitglieder. Bieten an: Clubma¬ 
gazin, Software, viele viele Informationen ... 
Auskunft bei: Serge LINCKELS 
2, eite Eichelter 
L—8366 Hagen 
oder 

Alain THEISEN 
18, rue Nie Biver 
L—4807 Rodange 


PCW-Club. Alle Joyce User sind eingela¬ 
den uns beizutreten. Keine Beiträge. Nur 
Rückporto zu jedem Brief. Anfänger will¬ 
kommen. Info: PCW-Club Postfach 
150541,6700 Ludwigshafen 


CPC-Club RSC sucht noch 
Mitglieder(innen). Wir geben jeden Monat 
eine eigene Clubzeitschrift heraus 
Info bei: RSC, Kreisstr.4, 

8861 Utzwingen 

Bitte 1,50 DM Rückporto beilegen 


Suche Kontakt zu CPC-464 Usern 
im Raum Nürnberg-Fürth 
Karlheinz Küfner Dombühler Str. 53 
8500 Nürnberg 60 


Unser Computer Club 'Fehler im System' 
in Halle / Westfalen trifft sich wöchentlich 
im Kiskerhaus, Halle jeweils Samstags um 
15.00 Uhr. Wir sind zur Zeit über 30 Mit¬ 
glieder mit steigender Tendenz. Geboten 
werden neben Clubzeitung auch Kurse. 
Mitgliedern steht eine umfangreiche Biblio¬ 
thek zur Verfügung. Beitrag 10,- DM für 
Schüler und 20,- DM für alle anderen. 
Kontaktaufnahme mit oben genannter 
Adresse oder Wolfgang Zeh 
Tel: 0 54 25/53 05 


Achtung! 

An alle CPC-User-Clubs! 
Suchen Sie noch Mitglie¬ 
der oder wollen Kontakte 
zu anderen CPOUsern 
oder Clubs knüpfen, dann 
schreiben Sie uns doch 
einfach. 

Wir veröffentlichen jede 
Anschrift eines CPC- 
User-Clubs gratis! 

Falls auch ihr User-Club 
sich einmal vorsteffen 
möchte (evtl, mit Foto), 
nutzen Sie unsere Zeit¬ 
schrift als Verbindungs¬ 
glied und Kontakt¬ 
adresse! 
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I—Händlerverzeichnis 


Berlin 

B 

Düsseldorf 

H 

Kassel/Vellmar 



EHÜS 

Öffnunqszeiten Mo-Fr 10-18 Uhr • Sa 10-13 Uhr 

WOLFGANG MÜLLER und 
JÜRGEN KRAMKE GbR 

fmükra 

DATEN-TECHNIK 

Schoneberger Straße 5 1000 Berlin 42 Tel 030-752 9150/60 


c 3 Schneider 

COIIPUTER OMSIOH 


Beratung 

Vertrieb 

Service 



BÜRO-ORGANISATION DATENTECHNIK Vertriebsgesellschall mbH 
4000DüsseldO'll Friedenstraße 13 Tel 0211/308071 


Schneider 

^GdPUTER 0MSI0H 



üroelecltonkr 

Holländische Str. 121,3S02 Vellmar, Tel.: OS81/828180 



Berlins größtes 
Electronic-Kaufhaus 

Stresemannslr.95 
1000 Berlin 61 
® (030) 261041 



Bonn 


RADIO-FERNSE 
HIFI-VIDEO 




E 


littersdorfer Straße 206T elefon (02 28) 36 40 


29 


Castrop-Rauxel 


EN; GUTE IDEE NACH DER AMTEHEN CtlKlNC 

Schuster Electronic 


r> _ i i_j — 

bcrmewer 


rrwwrfOMSwi 

Vertragshand le* 
Commodore 

Vertrags werfe * 1*11 



Obere Muustecstr 33 4620 Castrop-Rauxel 102305)3770 



REPARATUREN PREISWERT UND SCHNELL 

CSchneider 

w9 COMPUTER-SERVICE 


4620 Castrop-Rauxel, Bahnholslr. 84-86, Tel. 02305/3747 u 3848 



Löhne/Ostwestfalen 


i m Schneider Vertragshändler & Sen/icecenter 

Hard- 4 Soltware von A-Z für Ostwestlalen 

FRITZ RRERMIER 
•Computer-H iFi" Video-TV* 
alles für Schneider vom 464 - Joyce 

M RaaptkataM * RIX* Br ZR • 4172 Ulaa 1 * Tal RR7K/U4R 


Lüchow 


‘H» Schneid er 

Cl 

A ATARI 


Computer-Shop 

Drawehner Slr.15 

3130 Lüchow Tel (0 58 41)54 99 

Hard- und Software 

Zubehör Literatur 

Versandkatalog anfordern 

Bitte Computertyp angeben. 


PC 1512 


RtiiarslraBa 2, Nahe Nauweilerplau. 4054 Bas»I V/rfeofex 
Te/afon 1061) 39 14 14 

v\\\\\v\\\\\\v\\\ 


C Schneider 

COR PUTER ulVISIOfi 

Vertragshändler 

Büro Knüppel & Co. 

Computer und Büromaschinen 
Riehenring 81 (MUBA) 

4058 Basel 
Telefon (061) 261262 


Rüsselsheim 


A ATARI «»Schneider C E 

Commodore 

Computertechnik Dipl. -Ing. Neuderth 

Frankfurter Sir. 23 6090 Russelshdm fei: (06142) 684 55 Tx 4 182 9B2 compt ö 


Nürnberg 


Hochstraße 11 
8500 Nürnberg 80 
Tel 0911/28 90 28 


► Schneider 

conPurEit Division 


Wir führen tu den original SCHNEIOER-Produkten Software, Bücher und 
Zubehör verschiedener Firmen wie DATA BECKER, VORTEIL CUMANA, 
ISS, RUSHWARE, MARKT S TECHNIK, SYBEX. VOGEL-Verlag usw.! 



Eintragungen 
im Händlerverzeichnis, 
nach Städten geordnet, 
kosten Je mm Höhe 6, - DM bei 
einer Spaltenbreite von 58 mm. 

Einträge möglich 
mindestens 
6 x innerhalb eines 
Insertionsjahres. 

Nähere Informationen: 

Wolfgang Brill 
Telefon (O 56 51) 8702 


Anzeigenschluß für die 
Ausgabe 3/88 
von 

PC Schneider International 
ist der 21.1.88 
Erscheinungstermin 
ist der 
24.2.88 
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ALLES 
WAS EIN 
COMPILER 

BRAUCHT 


(UND NOCH EIN E 
GANZE MENGE 
MEHR) 



PASCAL 



Ideal auch für den Einstieg 


Programm Zins; 

Variable 

gegenwärtig 

zukünftig 

Jahre 

Zinsfuß 


Gleit 

Gleit 

Gleit 

Gleit 




Funktion Zinseszins (gegenwärtig, Zinsfuß, Jahre,: Gleit): Gleit; 

Anfang 

Zinseszins :=> gegenwärtig•exp(ln(1+Zinsfu8)-Jahre); 

Ende; 

Anfang 

schretbezl ('Einfache Zinseszinsrechnung: Bitte Betrag, Zinsfuß’); 
schreibezl ('und Jahre getrennt durch Leerzeichen eingeben:'); 
lieszl (gegenwärtig, Zinsfuß, Jahre); 

Zinsfuß = Zmsfuß/100, 

zukünftig := Zinseszins (gegenwärtig, Zinsfuß, Jahre); 
schreibezl ('Der Endbetrag ist gleich zukünftig) 

Ende. 

Alle reservierten Wörter können auch deutsch programmiert werden! 

Bille vorherige oder nächste Seite oder Ende + Eingabetaste -> betätigen 


Alles, was man braucht! 

Benutzeroberfläche 

- die individuell gestaltet werden kann - 
Full-Screen Editor 

selbstverständlich können Sie »Ihren* Favoriten 
benutzen 

5 Bibliotheken z.B. Standard-, Grafik-, Integer-, Gleit¬ 
komma - mit 8 Byte Im lEEE-Format, BCD- und 
8007/80287 Bibliothek 
Compiler kann im Batch-Betrieb laufen 
Linker 

ca. 120 Beispielprogramme zur Erklärung von 
Funktionen 

ca. 300 Seiten umfassendes deutsches Handbuch 
Compilat ist frei von Rechten des Herstellers und in 
dem Lieferumfang enthalten 


PASCAL 



BCi KENNEN 


unverblndl. Preisempfehlung 




PASCAL 


Über Selbstverständliches spricht man nicht 

■ volle Ausnutzung des gesamten Speichers 
- 4 Modfelle bis 640 KB 

■ voller Sprachumfang nach DIN Pascal Norm 66 256 
(Entwurf) 

■ erweitert um: Bitmanipulation, Strings, DOS und BIOS- 
Schnittstelle 

■ zusätzlich deutsche und/oder englische Bezeichner 

■ erweiterter Zeichensatz (Umlaute und »8«) für 
Bezeichner 

■ deutsche Fehlermeldungen 

■ Quellprogrammllste 

- modulare und bedingte Compilierung 

- linkbar mit anderen Sprachen (z.B. Assembler, 

Fortran, C...) 



PASCAL 


Was Ihnen manch andere Compiler nicht bieten: 

- Volle ISO-Norm: 

Funktionen, Prozeduren und »Conformant arrays* 
(Felder in Prozeduren und Funktionen unterschiedli¬ 
cher Größe und Feldgrenzen), können als Parameter 
sowie strukturierte Datentypen als Funktionsergeb¬ 
nisse (Records, Arrays etc.) übergeben werden. 

- Unterstützung des 8087/80287 Co-Prozessors 
- mit allen Registern - 

- BCi Pascal erzeugt kompatible »OBJ-Dateien* die mit 
anderen Compiiern/Sprachen linkfäbig sind. 

- 2-pass hoch optimierender Compiler 
kleinstes Programm = 1.835 Byte! 

Wer bietet Ihnen dies? 


Bitte Bestellkarte benutzen 


SIE NOCH 
NICHT? 

SOFORT 

INFOPAKET 

ANFORDERN 


Vfersion 1.1 für 

alle PC unter MS-DOS 

und PC DOS 2.xx und höher 



DMV Daten & Medien Verlagsgesellschaft mbH 
Postfach 250 • Fuldaer Str. 6 
Software 3440 Eschwege • Tel. (0 56 51) 8702 


Ja, ich möchte mehr über BCi Pascal erfahren! 

Bitte senden Sie mir deshalb völlig unverbindlich das große BCi Infopaket 
zu. Den Betrag von 5,- DM hierfür habe ich als Scheck bzw. in Briefmarken 
beigefügt. 


Name, Vorname 


PLZ. Ort 


Straße, Nr. 






























































Inserenten 1/88 


Ariolasoft.136 

Arnor.111 

Byte Me.57 

CG Computerstore.99 

CMZ Verlag.99 

Computer-Shop.53 

CSV Riegert.8 


DMV.47,55,63,71,79,83,89,95, 

.103,107,113,131,133 


Dobbertin.41 

Göddeker.21 

Hashagen.7 

Interest Verlag.119 

Kotulla.41,135 

Micromarket Worms.21 

Mimsoft.7 

Mükra.59 

PR8 Softwaredienst.43 

Prosoft.67 

SP1.27 

Schneider-Data.23 

Strauß Elektronik.75 

TJR Software.75 

Tornado.9 

Unikat.57 

Vortex.2,37,39 

Weeske.24,25 

Werder.53 

Westfalenhalle Dortmund.28 


Eine Bitte an unsere 
Abonnenten 

Vermerken Sie 
bei Schriftverkehr 
und Zahlungen 
neben der 

vollständigen Anschrift 
stets Ihre Abo- 
Nummer. 

Sie vermeiden 
damit unnötige 
Verzögerungen 
bei der 
Bearbeitung 
Ihres 

Abonnements. 
Vielen Dank. 

Ihre 

DMV-Versandabteilung 
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Das haben Ihre Zeitschriften nicht verdient 



Ordnung und Übersicht schaffen 
die DMV-Sammelmappen 



Coupon: 

Ausschneiden oder kopie¬ 
ren und senden an 

DMV, 

Kennwort: Sammelmappe, 
Fuldaer Str. 6, 

3440 Eschwege 


Ich bestelle hiermit 


Str., Nr 


2 Stak. 15,80 DM 

zuzüglich 3, - DM Porto und Verpackung 

für die Ausgabe von _ 

□ DOS □ PC □ PASCAL PLZ ' ° rt 

□ Den Betrag bezahle ich mittels des beigefügten Verrechnungsschecks. 

□ Ich bitte um Lieferung per Nachnahme zuzüglich der Nachnahmegebühr (nur innerhalb der BRD). 


Datum, 


Unterschrift (bei Minderjährigen des gesetzi. Vertreters) 





















^Vorschau 



Berichte: 


Licht ins Dunkel der Copyright-Bestim¬ 
mungen und Urheberrechte soll unser 
Aufklärungsartikel im nächsten Heft 
bringen. Immer wieder erreichen uns 
Anfragen wie z.B. »darf ich ein Databox- 
Programm an einen Freund weiterge¬ 
ben?« oder »darf ich die Routine xy aus 
dem Buch a in mein Programm einbau¬ 
en und dies einem Verlag anbieten?«. 


Computerviren: 


— in der allgemeinen Grippezeit machen 
Viren auch vor Computern nicht halt. 
Unser Artikel verrät Ihnen, was Com¬ 
puterviren im einzelnen sind und wel¬ 
che Auswirkungen diese hervorrufen 
können. Ein nicht ganz alltägliches 
Thema, das aber durch Geschehnisse 
der jüngsten Vergangenheit brand¬ 
aktuell ist. 


Programme: 


Deskman 

— Benutzeroberfläche für Diskettenope¬ 
rationen. Steuern Sie Ihre Anwendun¬ 
gen einfach und komfortabel über 
ICONs! 


Software Reviews: 


Clever & Smart 



Eine neue Comic-Adaption stellt sich vor. Clever 
& Smart, die unfähigsten Geheimagenten der Welt 
geben ihr Debüt. . 


— die Comic-Geheimagenten schlagen 
wieder zu. Doch diesmal nicht auf Pa¬ 
pier, sondern auf Datenträger. 

Renegade 

— wenn man in der dunkelsten Gegend 
der Stadt ein Rendevous verabredet, 
braucht man sich nicht wundern, 
wenn es Ärger gibt.... 


PC: 


Der BASIC2-Kurs hat Ihnen die Grund¬ 
lagen vermittelt. Die Programmierung ei¬ 
ner Adressverwaltung zeigt praxisbezo¬ 
gen die Anwendung der einzelnen Be¬ 
fehle. 


Joyce: 


Jetsam 

— für uneingeweihte ein Zauberwort. 
Wie relative Dateiverwaltung auf 
Joyce unter Mallard-Basic verwirk¬ 
licht wird, zeigt Ihnen der erste Teil 
unserer Serie. 

Desktop Publishing auf Joyce 

- Teil 2: Wir stellen alle in Deutschland 
erhältlichen Programme vor. 

Grafik ohne GSX 

Ein kleines Basic-Programm namens 
SCREEN Y stellt Ihnen einige Routinen 
zur Verfügung, die das einfache Setzen 
und Löschen von Punkten und Linien im 
Direktzugriff auf den Joyce-Bildschirm 
ermöglichen. Zwei Demos zeigen ein¬ 
drucksvoll, wie’s funktioniert... 



24-Nadler haben Hochkonjunktur. Wir stellen den 
NB-24 von Star vor... 
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Wie teuer darf Low Cost-Software sein? 

Wollen Sie wirklich 400 Mark für ein Textprogramm ausgeben, das auf Ihrem IBM-PC, Schneider¬ 
PC oder Kompatiblen läuft? Das war bisher, was man sich unter Low Cost-Software vorstellte. 

Aber jetzt ist Schluß mit diesen überhöhten Preisen! Endlich gibt es für Ihren PC eine Text¬ 
verarbeitung, die alle Preis- und Leistungsbarrieren bricht: 

TextMaker 

TextMaker. Für nur 148 Mark. Keine Sparausgabe. Keine Juniorversion. Keine teuren Zusatzpakete. 
Sondern volle Leistung zu einem wirklichen Superpreis! 

TextMaker. Ein Programm für Profis und Einsteiger gleichermaßen. Denn TextMaker paßt sich Ihrem 
Wissensstand an. Es überfordert Einsteiger nicht und bietet dennoch alles, was sich Profis wünschen. 

Bevorzugen Sie Pulldown-Menüs zur Texteingabe? Ziehen Sie Funktionstasten vor? Oder arbeiten Sie 
Lieber mit einem WordStar-kompatiblen Befehlssatz? TextMaker unterstützt alle drei Editiermethoden. 

Und erlaubt die Umbelegung der Tastatur. 

Dürfen wir Ihnen einige der Vorzüge von TextMaker aufzählen? 

Vielleicht geben Ihnen folgende Pluspunkte eine Vorstellung 
'•on der Leistungsfähigkeit dieses einmaligen Textprogramms: 

• Editieren in bis zu neun Textfenstern, Textlänge nur durch Speicher begrenzt 

• Integrierter Druckerspooler 

• 26 Tastaturmakros für Texte und Befehle 

• Komfortable Adressenverwaltung und Serienbrieffunktion 

• Automatisches Sichern des Textes in vorgebbaren Zeitabsländen 

• Per Tastendruck zwischendurch ins DOS und wieder zurück 

• Phonetisches Suchen: Mayer? Meier? Maier? Kein Problem! 

• Die UNDO-Taste rettet gelöschte Textzeilen (bis zu 32000 Zeilen) 

• Layout auf Bildschirm: Paßt die Randeinstellung? Stimmt der Seitenumbruch? 

• Drucken auf Bildschirm: kursiv, fett, unterstrichen , breit, doppelt hoch ... 

• Linealzeilen im Text: Schreiben mit beliebigen Formateinstellungen 

• Integrierter Diskettenmanager, der sogar Disketten formatiert 

• Mit der ASCII-Tabelle können Sie den gesamten IBM-Zeichensatz nutzen 

• Rechnen im Text: wie in BASIC mit 26 Variablen und Systemvariablen 

• Verwaltung von Stichwortverzeichnissen, Inhaltsverzeichnissen und Fußnoten 

• Druckertreiber für viele Matrix-, Typenrad- und Laser-Drucker 

• Für Schneider-PC, IBM-PC und Kompatible mit mindestens 256 KByte RAM 

• Unterstützung für Farbgrafikadapter, Monochromkarte und EGA-Autoswitch 

Konnten wir Sie noch nicht restlos überzeugen? Wir schicken Ihnen gerne 
kostenlos weitere Informationen. Wenn Sie Ihrer Anfrage einen 10 Mark-Schein 
beilegen, bekommen Sie außerdem eine Demoversion von TextMaker. 

Die unverbindliche Preisempfehlung für TextMaker ist DM 148, wenn 
Sie TextMaker über Ihren Händler beziehen. Bei Versand beträgt der 
Preis DM 158,- inklusive Porto und Verpackung. Lieferung auf 
Verrechnungsscheck oder per Nachnahme. 

Martin Kotulla 



Komfortable Pulldown-Menüs 


Wie teuer darf Lou Cqst-Software sein? 
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Drucken auf Grafikbildschimi 


Nur 

148 Mark! 


SoftMaker 


Bitte Coupon ausfüllen, ausschneiden und an SoftMaker schicken. 


Grabbestraße 9 
8500 Nürnberg 90 
Telefon 0911/3033 33 


[ ] Bitte schicken Sie mir erst einmal 
unverbindlich weitere Informationen. 

] Jawohl, senden Sie mir TextMaker! 


Name:_ 

Straße:_ 

Ort: 

Unterschrift: 
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